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

[Amir01 612]

سلام

برای بررسی صحت کد ملی ابتدا این تابع رو به پروژه خودتون اضافه کنین:

Sub IsNationalCodeValid(NationalCode As String)As Boolean
	Dim Temp As Int=0
	For i=0 To NationalCode.Length-2
		Temp=Temp+(NationalCode.CharAt(i).As(String)*(10-i))
	Next
	Dim R As Int=Temp Mod 11
	Dim ControlDigit As Int=NationalCode.CharAt(NationalCode.Length-1).As(String)
	If R < 2 Then Return (R==ControlDigit)
	Return (11-R==ControlDigit)
End Sub

به این شکل میتونین از تابع بالا استفاده کنین:

Log(IsNationalCodeValid("5545862382"))