[求助]检验大陆身份证的自定义函数问题？

FENGJUN

以下检验大陆身份证的自定义函数为何不能检测诸如“52242819791011102x”的身份证件号？

问题何在？

Function IDCheck(E As String) As Boolean
    IDCheck = True
    arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",")
    wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")
    Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",")
    If Len(E) < 15 Or Len(E) = 16 Or Len(E) = 17 Or Len(E) > 18 Then
        'IDCheck= "身份证号共有 15 码或18位"
        IDCheck = False
        Exit Function
    End If
    Dim Ai
    If Len(E) = 18 Then
        Ai = Mid(E, 1, 17)
    ElseIf Len(E) = 15 Then
        Ai = E
        Ai = Left(Ai, 6) & "19" & Mid(Ai, 7, 9)
    End If
    If Not IsNumeric(Ai) Then
        'IDCheck= "身份证除最后一位外，必须为数字！"
        IDCheck = False
        Exit Function
    End If
    Dim strYear, strMonth, strDay
    strYear = CInt(Mid(Ai, 7, 4))
    strMonth = CInt(Mid(Ai, 11, 2))
    strDay = CInt(Mid(Ai, 13, 2))
    BirthDay = Trim(strYear) + "-" + Trim(strMonth) + "-" + Trim(strDay)
    If IsDate(BirthDay) Then
        If DateDiff("yyyy", Now, BirthDay) < -140 Or CDate(BirthDay) > Date Then
            'IDCheck= "身份证输入错误！"
            IDCheck = False
            Exit Function
        End If
        If strMonth > 12 Or strDay > 31 Then
            IDCheck = False
            'IDCheck= "身份证输入错误！"
            Exit Function
        End If
    Else
        'IDCheck= "身份证输入错误！"
        IDCheck = False
        Exit Function
    End If
    Dim i, TotalmulAiWi
    For i = 0 To 16
        TotalmulAiWi = TotalmulAiWi + CInt(Mid(Ai, i + 1, 1)) * wi(i)
    Next
    Dim modValue
    modValue = TotalmulAiWi Mod 11
    Dim strVerifyCode
    strVerifyCode = arrVerifyCode(modValue)
    Ai = Ai & strVerifyCode
    IDCheck = Ai
    If Len(E) = 18 And E <> Ai Then
        'IDCheck= "身份证号码输入错误！"
        IDCheck = False
        Exit Function
    End If
End Function

qee用

这句似乎多余,去掉试试:
 IDCheck = Ai

sunyujie

都是FALSE

FENGJUN

QUOTE:

以下是引用qee用在2006-11-3 12:32:16的发言：
这句似乎多余,去掉试试:
 IDCheck = Ai

厉害啊，斑竹！就这句有问题。

qy1219no2

FENGJUN 发表于 2006-11-3 13:31
QUOTE:以下是引用qee用在2006-11-3 12:32:16的发言：这句似乎多余,去掉试试:&nbsp;IDCheck = Ai厉害啊，斑竹 ...

1. Function idCode(sCode As String) As String
   
2. 'sCode是身份证号前17位数字,如果是15位老号码，请在第6位之后加“19”
   
3.     Dim i%, num%, Code As String
   
4.     If Len(sCode) <> 17 Then _
   
5.         MsgBox "你输入身份证号码无法计算校检码！": Exit Function
   
6.     csDate = Mid(sCode, 7, 8)
   
7.     csDate = Format(csDate, "0000-00-00")
   
8.     If IsDate(csDate) = False Then _
   
9.         MsgBox "你输入的号码不符合要求，请检查！": Exit Function
   
10.     num = 0
    
11.     idCode = sCode
    
12.     For i = 18 To 2 Step -1
    
13.             num = num + (2 ^ (i - 1) Mod 11) * (Mid(idCode, 19 - i, 1))
    
14.     Next
    
15.     num = num Mod 11
    
16.     Code = IIf(num = 0, "1", IIf(num = 1, "0", IIf(num = 2, "X", Trim(Str(12 - num)))))
    
17.     idCode = idCode + Code
    
18. End Function

复制代码