תעודת זהות
זה הקוד בVB תכניס 3 תיבות טקס T1 T2 T3 ולחצן Command1 אל תשכח לשלוח צ´ק בהצלחה אריה
Sub Command1_Click () T2 = "" If Not IsNumeric(T1) Then MsgBox "מספר תעודת הזהות חייב להיות מספר", 48, "שגיאה" T1 = "" Exit Sub End If Dim a As Integer Dim x As Integer Dim ID As Integer Dim ID1 As Integer x = 1 ´MsgBox "" & Len(Str(t1)) For a = Len(Str(T1)) To 2 Step -1 ID = Mid(Str(T1), a, 1) If x Mod 2 = 1 Then ID = Mid(Str(T1), a, 1) * 2 If ID > 9 Then ID = ID - 10 + 1 End If ´MsgBox "" & ID & " - " & Mid(Str(t1), a, 1) ID1 = ID1 + ID ´MsgBox "" & ID1 x = x + 1 Next ´MsgBox "" & 10 - Val(Right(Str(ID1), 1)) T2 = 10 - Val(Right(Str(ID1), 1)) T3 = RTrim(T1) & LTrim$(T2) End Sub
