Ajouter un zéro devant un chiffre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 982 fois - Téléchargée 67 fois

Contenu du snippet

Ce code de une ligne permet de mettre un zéro devant un chifre.

Source / Exemple :


Dim Nombre_Entre As Integer 'As long, As byte etc... (numerique)
Dim Nombre_Sorti As String  '(Chaine de Caractère)

Nombre_Sorti=Right("0" & Nombre_Entre,2)

ou bien 

Nombre_Sorti=format$(Nombre_Entre,"00"

A voir également

Ajouter un commentaire

Commentaires

PtitJeoJeo
Messages postés
85
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
18 avril 2005
-
heu ca serai pa plutot string(X,"0") ????
Encore plus simple:
Nombre_Sorti= String("0",X) & cstr(Nombre_Entre)

X = nombre de 0 a ajouter au début
oups 2 p'tites fautes se sont glissées désolé:
il fallait lire ;)

nombre_sorti=format$(nombre_entre,"00")
il suffit de faire :
dim nombre_sorti as string
dim nombre_entre as integer
nombre_sorti=format$(nombre_tre,00)
ca évite un test

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.