1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| dim NumUnit9
Function StrNum(lgn,data)
numeric=CStr(data)
LngEntier = len(Cint(data))
result = String((lgn-LngEntier), "0") & numeric
'si data est un chiffre à décimal, result à pour séparateur une virgule
'et si la BDs attend un point, déremer la ligne qui suit
'result = replace(result,",",".") 'remplace la virgule par un point
StrNum = result
End Function
NumUnit9 = 12
NumUnit9 = StrNum(4,NumUnit9) 'ajoute 2 zéro à gauche du chiffre
msgbox NumUnit9
NumUnit9 = 123
NumUnit9 = StrNum(4,NumUnit9) 'ajoute 1 zéro à gauche du chiffre
msgbox NumUnit9
NumUnit9 = 1.23
NumUnit9 = StrNum(7,NumUnit9) 'ajoute 6 zéro à gauche du chiffre
msgbox NumUnit9 |
Partager