Selam ve saygılarımı ileterek herkese iyi geceler diliyorum.
Örnekteki çalışmada kaydettiğimde farklı kayıt ve seri numarasının verilmesini istiyorum.
Şimdiden teşekkür eder saygılarımı sunarim.
![Çözüldü](images/icons/cozuldu.png)
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 .