کد:
Dim A As Integer
Dim num As Long
Dim N As Long
Dim C As Integer
Dim L As Integer
A = Right(TCODM.Text, 1)
num = Left(TCODM.Text, 9)
L = 2
For i = 1 To 9
If TCODM.Text = "1111111111" Or TCODM.Text = "2222222222" Or TCODM.Text = "3333333333" Or TCODM.Text = "4444444444" Or TCODM.Text = "5555555555" Or TCODM.Text = "6666666666" Or TCODM.Text = "7777777777" Or TCODM.Text = "8888888888" Or TCODM.Text = "9999999999" Then
A = MsgBox("تمام رقم های کد ملی یکسان است", vbOKOnly + vbExclamation + vbMsgBoxRight, "هشدار")
End If
If TCODM.Text = "1111111111" Or TCODM.Text = "2222222222" Or TCODM.Text = "3333333333" Or TCODM.Text = "4444444444" Or TCODM.Text = "5555555555" Or TCODM.Text = "6666666666" Or TCODM.Text = "7777777777" Or TCODM.Text = "8888888888" Or TCODM.Text = "9999999999" Then Exit For
N = num Mod 10
num = num \ 10
Z = N * L
Sum = Sum + Z
L = L + 1
Next
C = Sum Mod 11
If C < 2 And A = C Or C >= 2 And A = 11 - C Then LMSG.Caption = "معتبر" Else LMSG.Caption ="نامعتبر"
علاقه مندی ها (Bookmarks)