Discussion :

[reeda]

salam,

je voudrais savoir comment faire pr etaler un entier sur 4 chiffres
par exp : 5 -> 0005

voila
merci d'avance
cordialement
Mohammed Reda

[Danyel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(nombre, "0000")

Toutes les explications sur format ici : http://msdn2.microsoft.com/fr-fr/lib...k8(VS.80).aspx

[MaelstroeM]

Il y a aussi pas mal de truc sympa déjà implémentés dans la classe String, comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            Dim TOTO As Integer=5
            TOTO.ToString.PadLeft(4, CChar("0"))

Existe aussi en version PadRight

@+

[Aspic]

Voila une petite fonction et en plus tu pourras choisir le nombre de zeros que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Function Conv(ByVal Chaine As String, ByVal Nbr_Zero As Integer) As String
        Dim temp As New String(CChar("0"), Nbr_Zero)
        Return (temp & Chaine).ToString
    End Function

Et pour l'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim result As String = Conv("5", 4)

Voila ++