Public Funkcja UnTick (p32) Jeżeli (IsNumeric (p32)) Wtedy
UnTick = p32
Inny
junakowanie = InStr (p32, "-")
Px_length = Len (p32)
intPx = Opuszczać (p32, junakowanie - 1)
intTicks = Prawy (p32, Px_length - junakowanie)
Jeżeli (InStr (intTicks, "+")) Wtedy
intTicks = InStr (intTicks, "+")
tk_length = Len (intTicks)
subticks = Opuszczać (intTicks, plus - 1)
UnTick = intPx + subticks * ((1)/32) + 0.5/32
Inny
Jeżeli (InStr (intTicks, ": ")) Wtedy
dwukropek = InStr (intTicks, ": ")
tk_length = Len (intTicks)
subticks = Opuszczać (intTicks, dwukropek - 1)
eigths = Prawy (intTicks, tk_length - dwukropek)
UnTick = intPx + subticks * ((1)/32) + eigths * ((1)/8) * ((1)/32) Inny
UnTick = intPx + intTicks * ((1)/32)
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Funkcja
|