谢谢大家，我在线等一个检验身份证输入的问题？？？

Question

写一个函数，对参数TS(字符串类型)进行处理，判断是不是一个合法的身份证号码：
规则
1：长度为15或18
2：表示生日的部分有效
3：18位的最后一个字符可以是字符，其他的应该为数字。

Answer 1

介绍18位身份证号码最后一位校验码的计算方法公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。校验方法：
（1）十七位数字本体码加权求和公式
S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求和
Ai:表示第i位置上的身份证号码数字值
Wi:表示第i位置上的加权因子
Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2（2）计算模
Y = mod(S, 11)（3）通过模得到对应的校验码
     Y: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2

Answer 2

http://www.cnzz.cn/soft/html/4058.html
这里有源代码下载

Answer 3

Function IsValidIdCard(ByVal TS As String) As Boolean
    Dim intLen As Integer
    Dim str1 As String
    intLen = Len(TS)
    If Not (intLen = 15 Or intLen = 18) Then '无效
        IsValidIdCard = False
        Exit Function
    End If
    If intLen = 15 Then
        str1 = TS
    Else
        str1 = Left(TS, 17)
    End If
    If Not IsNumeric(str1) Then
        IsValidIdCard = False
        Exit Function
    End If
    
    Dim date1 As Date
    If intLen = 15 Then
       date1 = DateSerial(CInt(Mid(TS, 7, 2)), CInt(Mid(TS, 9, 2)), CInt(Mid(TS, 11, 2)))
    ElseIf intLen = 18 Then
       date1 = DateSerial(CInt(Mid(TS, 7, 4)), CInt(Mid(TS, 11, 2)), CInt(Mid(TS, 13, 2)))
    End If
    If date1 < #1/1/1885# Or date1 > Date Then '无效
        IsValidIdCard = False
        Exit Function
    End If
    
    IsValidIdCard = True '有效
End Function