Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Numeric Conversion
Message
De
10/12/1998 12:00:53
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00166019
Message ID:
00166164
Vues:
14
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform