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

natcode(66223541;1)

natcode(66223541;2)

'Addon name : Iranian national code validator.
'Version : 1.0
'Writer : Hamid Haseli
'Url : http://www.yastoroon.ir
'This addon is a freesoftware

Function natcode(natcudeRenge As String, natcodeArg As Integer)
Dim Length As Integer
Dim Length2 As Integer
Dim natcodeNum As Integer
Dim natcodeNumSum As Integer
Dim keyNum As Integer
Dim natcodeMode As Integer

natcodeNumSum = 0
Length = Len(natcudeRenge)
Length2 = (10 - Length) * 1

For i = 1 To Length2
    natcudeRenge = "0" & natcudeRenge
Next

If natcodeArg = 1 Then
    natcode = natcudeRenge
ElseIf natcodeArg = 2 Then

For i = 0 To 8
    natcodeNum = (Mid(natcudeRenge, (i + 1), 1)) * (10 - i)
    natcodeNumSum = natcodeNumSum + natcodeNum
Next

natcodeMode = natcodeNumSum Mod 11
keyNum = Right(natcudeRenge, 1)

If (natcodeMode <= 2 And natcodeMode = keyNum) Then
    natcode = True
ElseIf ((11 - natcodeMode) = keyNum) Then
    natcode = True
Else
    natcode = False
End If

If (Length > 10 Or Length = O) Then
    natcode = False
End If

End If
End Function