Aşağıdaki linki inceleyiniz.



Tc Kimlik Numarası Kontrolü


Kullanılan kod:

Function TCKimlikNoYazimKontrol(tcid) As Boolean

Dim D(1 To 11) As Integer

    For N = 1 To 11

D(N) = Mid(tcid, N, 1)

    Next

    top1 = D(1) + D(3) + D(5) + D(7) + D(9)

    top2 = D(2) + D(4) + D(6) + D(8)

    

    cd1 = (10 - (((3 * top1) + top2) Mod 10)) Mod 10

    cd2 = (10 - (((3 * (top2 + cd1)) + top1) Mod 10)) Mod 10

    If cd1 = D(10) And cd2 = D(11) Then

        TCKimlikNoYazimKontrol = True

        Else

        TCKimlikNoYazimKontrol = False

End If

End Function