format d'une donnée numerique

salam,

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

voila
merci d'avance
cordialement
Mohammed Reda

Code:

---

Format(nombre, "0000")

---

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

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

Code:

---

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

---

Existe aussi en version PadRight ;)

@+

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

Code:

---

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:

---

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

---

Voila ++