14 BASAMAKLII SAYIYA KLİPTON

Dim sifre As String

Private Sub Command1_Click()

Dim gg, aa, yy, ss, pp As String

Dim k3 As Integer

gg = Text1.Text

aa = Text2.Text

yy = Text3.Text

ss = Text4.Text

pp = Text5.Text

Randomize

k1 = Int(Rnd() * 10)

k2 = Int(Rnd() * 10)

k3 = k1 + k2

If k3 < 10 Then

sifre = k1 & pp & gg & k2 & yy & ss & aa & "0" & k3

Else

sifre = k1 & pp & gg & k2 & yy & ss & aa & k3

End If

Label4.Caption = sifre

End Sub

Private Sub Command2_Click()

Dim gg, aa, ss, pp, k1, k2 As Integer

Dim yy As String

Dim tarih, tarih1 As Date

aa = Mid(sifre, 11, 2)

gg = Mid(sifre, 4, 2)

yy = Mid(sifre, 7, 2)

pp = Mid(sifre, 2, 2)

ss = Mid(sifre, 9, 2)

k1 = Mid(sifre, 6, 1)

k2 = Mid(sifre, 1, 1)

k3 = Mid(sifre, 13, 2)

yy = "20" & yy

yy = CInt(yy)

k1 = CInt(k1)

k2 = CInt(k2)

k3 = CInt(k3)

If k3 = k1 + k2 Then

tarih = DateSerial(yy, aa, gg)

tarih1 = DateAdd("d", ss, tarih)

Label5.Caption = "olusturulma tarihi : " & tarih

Label6.Caption = "Paket kullanım süresi : " & ss

Label7.Caption = "paketin son kullanılma tarihi : " & tarih1

Label8.Caption = "paket kodu : " & pp

Else

Exit Sub

End If

End Sub