10 HANELİ ŞİFRELEME

Private Sub Command1_Click()
Randomize
yy = DateDiff("y", "1.1.2000", Now, vbSunday, vbFirstJan1)
Text1.Text = yy & "66" & "30"
sy = Int(Rnd() * 99) + 1
If Len(sy) = 2 Then
Text1.Text = Text1.Text & sy
Else
Text1.Text = Text1.Text & "0" & sy
End If
End Sub