Function Duzenle(ByVal Sayi As Double, ByVal Uzunluk As Long) As String
Parca = Mid(Str(Sayi), 2)
For T = 1 To Uzunluk
If Len(Parca) <> Uzunluk Then
Parca = "0" + Parca
End If
Next T
Duzenle = Parca
End Function
bu kodu denermisiniz .
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...