Public Funkcja Cwelich (Px Kopia) Jako Sznurek Ciemnawy intTicks Jako Integer
Ciemnawy strTicks Sznurek
Ciemnawy intHandl Jako Integer
Ciemnawy intEights Jako Integer
Ciemnawy intSign Jako Integer
Jeżeli Px < (0) Wtedy
intSign = -1
Inny
intSign = (1)
Kończyć Jeżeli
Px = intSign * Px
intHandl = Int (Px)
intTicks = Int ((Px - intHandl) * 32)
intEights = CInt (((Px - intHandl) * 32 - intTicks) * 8)
Jeżeli intSign < (0) Wtedy
intHandl = "-" & intHandl
Kończyć Jeżeli
Jeżeli intTicks < 10 Wtedy
strTicks = "(0)" & intTicks
Kończyć Jeżeli
Cwelich = intHandl & "-" & strTicks & ": " & intEights
Końcówka Funkcja
|