Une toute petite fonction qui n'est sans doute pas optimisée mais qui peut rendre bien des services, inspiré de celle-ci (en ASP) :
http://aspfr.com/article.aspx?Val=368
Source / Exemple :
' -----------------------------------------------------
Function FixeNbZero(ByVal Monchar As String, ByVal chaine As String, ByVal TailleFixe As Integer) As String
'Fixe la chaine de charactere avec 'TailleFixe' charactere en remplacant (par devant) les characteres manquant par 'char'
Dim i, longchaine As Integer
Dim TempChaine As String = ""
If Len(Trim(chaine)) < TailleFixe Then
longchaine = Len(Trim(chaine))
For i = 1 To (TailleFixe - longchaine)
TempChaine &= Monchar
Next
Return TempChaine & Trim(chaine)
Else
Return Trim(chaine)
End If
End Function
'----------------------------------
'On l'appelle simplement comme ceci :
Dim MonString as String = FixeNbZero("0", Nombre, 5)
Conclusion :
Si vous souhaitez l'améliorer, n'hésitez pas.
Romelard Fabrice (Alias F___)
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.