OVH Cloud OVH Cloud

Question sur les nombre

3 réponses
Avatar
Jean-Michel
Bonjour,

J'aimerai savoir comment faire pour convertir 0 (int) en 0000 (string)
Avec la meme fonction, 1 -> 0001
10 -> 0010
999 -> 0999

j'aimerai que le nombre de chiffre ( 4 dans ce cas ) soit modifiable

Merci !

3 réponses

Avatar
François Picalausa
Hello,

Regarde du côté de Format:
MsgBox Format(999,"0000")

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Jean-Michel" <jeneveuxpasdespam_coconuts_arobase_genial.net> a écrit
dans le message de news:%
Bonjour,

J'aimerai savoir comment faire pour convertir 0 (int) en 0000 (string)
Avec la meme fonction, 1 -> 0001
10 -> 0010
999 -> 0999

j'aimerai que le nombre de chiffre ( 4 dans ce cas ) soit modifiable

Merci !


Avatar
Vincent Guichard
François Picalausa a écrit :
Hello,

Regarde du côté de Format:
MsgBox Format(999,"0000")



Pour un nombre de chiffres variables:

Function myFormat(Valeur as Long, Chiffres as integer) as String
myFormat = Format(Valeur, String(Chiffres,"0"))
End Function

Vincent Guichard
Avatar
Jean-Michel
Ca marche, merci a vous deux !

"Vincent Guichard" a écrit dans le message de
news:c8d83p$abq$
François Picalausa a écrit :
> Hello,
>
> Regarde du côté de Format:
> MsgBox Format(999,"0000")
>
Pour un nombre de chiffres variables:

Function myFormat(Valeur as Long, Chiffres as integer) as String
myFormat = Format(Valeur, String(Chiffres,"0"))
End Function

Vincent Guichard