Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Numeric Conversion
Message
From
10/12/1998 12:00:53
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00166019
Message ID:
00166164
Views:
20
Like this?
thirtysix (num, length)

digits = "0123 ... xyz"

retval = ""

for i = (length - 1) to 0 step -1

    power = 36^i
    retval = retval + substr(digits,n / power + 1, 1)
    n = n % power

endfor

return retval
Previous
Reply
Map
View

Click here to load this message in the networking platform