vb居民身份证 校验函数.docVIP

vb居民身份证 校验函数 Public gcTmp As Collection Dim Wi(1 To 18) As Integer 身-份-证校验码 0 身-份-证校验 身-份-证检验函数,如果有错误,返回的是错误的字符信息,正确,则返回空 调用 Function CIDCheck(strId As String) As String strId = Trim(strId) If Len(strId) = 15 Then CIDCheck = CheckCIDC15(strId) ElseIf Len(strId) = 18 Then CIDCheck = CheckCIDC18(strId) Else CIDCheck = 位数不对 End If End Function 1. 15位身-份-证校验 Public Function CheckCIDC15(ByVal StrID15 As String) As String Dim sA, sDate Dim iA sA = Mid(StrID15, 7, 2) If CInt(sA) Year(Now) - 2000 Then sA = 19 sA Else sA = 20 sA End If sDate = sA - Mid(StrID15, 9, 2) - Mid(StrID15, 11, 2) sA = Mid(StrID15, 9, 2) Set gcTmp = New Collection gcTmp.Add sDate If Not IsNumeric(StrID15) Then CheckCIDC15 = 号码输入有误！有非数字出现！ Exit Function End If If Val(sA) 1 Or Val(sA) 12 Then CheckCIDC15 = 号码输入有误！月份不正确！ Exit Function End If If Val(Mid(StrID15, 11, 2)) 1 Or Val(Mid(StrID15, 11, 2)) 31 Then CheckCIDC15 = 号码输入有误！日期不正确！ Exit Function Else If (Val(Mid(StrID15, 9, 2)) = 4 Or Val(Mid(StrID15, 9, 2)) = 6 Or Val(Mid(StrID15, 9, 2)) = 9 Or Val(Mid(StrID15, 9, 2)) = 11) And Val(Mid(StrID15, 11, 2)) = 31 Then CheckCIDC15 = 号码输入有误！月份和日期不匹配 Exit Function ElseIf Val(Mid(StrID15, 9, 2)) = 2 And (Val(Mid(StrID15, 11, 2)) = 30 Or Val(Mid(StrID15, 11, 2)) = 31) Then CheckCIDC15 = 号码输入有误！2月份没有 Val(Mid(StrID15, 11, 2)) 天 Exit Function End If End If End Function 2 18位身-份-证校验 Public Function CheckCIDC18(ByVal StrID18 As String) As String Dim StrID17 As String, AiWi As Integer, Num As Integer, A18 As String Dim sA, sDate Dim iA sA = Mid(StrID18, 7, 4) sDate = sA - Mid(StrID18, 11, 2) - Mid(StrID18, 13, 2) Set gcTmp = New Collection gcTmp.Add sDate s_SetWi If Not IsNumeric(Left(StrID18, 17)) Then CheckCIDC18 = 号码输入有误！ Exit Function End If If Val(Mid(StrID18, 11, 2)) 1 Or Val(Mid(StrID18, 11, 2)) 12 Then CheckCIDC18 = 号码输入有误！月份不正确！