[بدري]

هذا الكود يقوم باعطاء كود رقمي من 13 رقما

Dim Montant As Double = 18622.7
Dim a = Montant.ToString("00000000000.00").Replace(".","")