التاكد من صحة رقم الهوية

بدأه walleed23 في 12 نوفمبر 2008 · 2 رد · 6,417 مشاهدة · في قسم تكنولوجيا Microsoft .NET العام

مشاركة: واتساب X فيسبوك تيليجرام

#112 نوفمبر 2008 في 14:38 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

سؤالي

عليها هو رقم الهويةVALIDATION انا عندي برنامج واحد الحقول المراد علم

سواءً رقم الهوية السعودية او الاقامة

اريد عمل

v.B FUNCTION

يتم تمرير رقم الهوية السعودية او رقم الاقامة لغير السعوديين

للتاكد من صحتها

وكما تعلمون هناك معادلة يتم من خلالها عمل

ال VALIDATION

وهي مستخدمة من قبل الدولة لتوليد هذه الارقام

وشكراً

#213 نوفمبر 2008 في 13:07

Function ID_Validation(ByVal SEGEL_NO As String) As Boolean
Dim i, TOT As Integer
Dim TEMP, FIN As String
TOT = 0
For i = 1 To 9
If (i = 1) Or (i = 3) Or (i = 5) Or (i = 7) Or (i = 9) Then
TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
If Len(TEMP) = 1 Then
TEMP = "0" & (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
Else
TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
End If
TOT = TOT + CInt(Mid(TEMP, 1, 1)) + CInt(Mid(TEMP, 2, 1))
Else
TOT = TOT + CInt(Mid(SEGEL_NO, i, 1))
End If
Next
If CStr(TOT).Length = 1 Then
FIN = "0" & TOT
Else
FIN = TOT.ToString
End If
ID_Validation = (CInt(Mid(FIN, 2, 1)) = CInt(Mid(SEGEL_NO, 10, 1))) Or (CInt(Mid(SEGEL_
NO, 10, 1)) = 10 - CInt(Mid(FIN, 2, 1)))
Return ID_Validation
End Function

تم تعديل هذه المشاركة بواسطة System Down في 13 نوفمبر 2008 في 13:07

#316 نوفمبر 2008 في 07:38

يعطيك العافية حجربها وارد عليك

عدد الزوار حالياً