Page 1 sur 1
Micro, milli, kilo, mega, etc...
Publié : jeu. 21/avr./2022 22:20
par Ollivier
Code : Tout sélectionner
Procedure.S ISU(X.D)
S = Sign(X)
X = Abs(X)
Y = Log10(X)
Z = (Y + 8) / 3 + 1
ProcedureReturn StrD(X * Pow(10, 3 * (4 - Z) ) * S) + StringField("nano;micro;milli;;kilo;mega;giga", Z, ";")
EndProcedure
Exemple:
Code : Tout sélectionner
Define x.D
For i = 1 to 20
x = Random(999) * Pow(10, Random(18) - 9)
Debug StrD(x) + " " + ISU(x)
Next
Re: Micro, milli, kilo, mega, etc...
Publié : mar. 26/avr./2022 10:51
par Kwai chang caine
Bon c'est sûr on est pas noyé sous les commentaires
Mais sympas ton code qui permet de convertir en une unité textuelle, après j'ai pas trop compris comment il la choisie..
Merci pour le partage
Re: Micro, milli, kilo, mega, etc...
Publié : mar. 26/avr./2022 11:37
par Ollivier
Kcc a écrit :après j'ai pas trop compris comment il la choisie..
Ben il la choisit de manière à ce que la lecture de la valeur fasse moins mal au crâne.
Re: Micro, milli, kilo, mega, etc...
Publié : jeu. 28/avr./2022 18:44
par Kwai chang caine
Ah d'accord !!! il est trop gentil ton code de penser à nos pauvres cerveaux trop souvent malmenés
