تابع کنترل صحت کد ملی

[vb341]

سلام . پس از کلی دردسر با کمک دوست عزیزم شهریار کد تشخیص صحت ملی آماده شد دوستان اگر نظری در بهتر شدن کد دارن لطفا بگن



Public Function ValidateNcode(ByVal NC As Int64) As Boolean

If IsNumeric(NC) = False Or NC.ToString.Length < 10 Or NC.ToString.Length > 10 Then
Return False
End If

If NC = 1111111111 Or NC = 2222222222 Or NC = 3333333333 Or NC = 4444444444 Or NC = 5555555555 Or NC = 6666666666 Or NC = 7777777777 Or NC = 8888888888 Or NC = 9999999999 Then
Return False
End If

Dim vnc As String = NC.ToString
Dim pos As Integer = 10
Dim sum As Integer = 0

For i = 0 To 8
sum += Integer.Parse(vnc.ToCharArray()(i).ToString()) * pos
pos = pos - 1
Next i

Dim remind As Integer = sum Mod 11
Dim controlNum As Integer = Integer.Parse(vnc.ToCharArray()(9))

If remind <= 2 Then
If controlNum = remind Then
Return True
Else
Return False
End If
ElseIf (11 - remind) = controlNum Then
Return True
Else
Return False
End If

End Function

[farhad85]

از زحمات شما سپاسگذارم