Public Funktion UnTick (p32) wenn (IsNumeric (p32)) Dann
UnTick = p32
Sonst
Schlag = InStr (p32, „-“)
Px_length = Len (p32)
intPx = verlassen worden (p32, Schlag - 1)
intTicks = recht (p32, Px_length - Schlag)
Wenn (InStr (intTicks, „+")) dann
Plus = InStr (intTicks, „+")
tk_length = Len (intTicks)
subticks = verlassen (intTicks, plus - 1)
UnTick = intPx + subticks * (1/32) + 0.5/32
Sonst
Wenn (InStr (intTicks, „: ")) dann
Doppelpunkt = InStr (intTicks, „: ")
tk_length = Len (intTicks)
subticks = verlassen (intTicks, Doppelpunkt - 1)
eigths = recht (intTicks, tk_length - Doppelpunkt)
UnTick = intPx + subticks * (1/32) + eigths * (1/8) * (1/32) sonst
UnTick = intPx + intTicks * (1/32)
Beenden wenn
Beenden wenn
Beenden wenn
Funktion beenden
|