Ajouter un zéro devant un chiffre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 116 fois - Téléchargée 67 fois

Commenter

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

Signaler
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") ????
Signaler

Encore plus simple:
Nombre_Sorti= String("0",X) & cstr(Nombre_Entre)

X = nombre de 0 a ajouter au début
Signaler

oups 2 p'tites fautes se sont glissées désolé:
il fallait lire ;)

nombre_sorti=format$(nombre_entre,"00")
Signaler

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

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.

Du même auteur (TomAmplius)