上兼职海网站建设

身份证号码验证函数_web

发布于：2007-9-30 已被阅读： 次 来源：上兼职海网站建设

·DateDiff 函数详解·VLOOKUP函数在教学管理中的应用·十进制转二进制的函数·C语言库函数·DateDiff函数祥解·Excel常用函数一键完成·[ASP.NET]一个实用的弹出窗口函数·图形编程:绝对值函数Abs()的妙用·main函数的参数·PL网站SQL单行函数和组函数详解 Function CheckIDCard(sStr, ByVal dDate, ByVal nSex)?CheckIDCard = "False"?If IsNull(sStr) Or sStr = "" Then Exit Function?If Not IsDate(dDate) Or dDate = "" Then Exit Function?If Not IsNumeric(nSex) Or nSex = "" Then Exit Function??Dim oRE, sDate??Set oRE??= New RegExp?oRE.IgnoreCase?= True?oRE.Global?= True??nSex?= CInt(nSex Mod 2)?sDate?= Year(dDate) & DblNum(Month(dDate)) & DblNum(Day(dDate))??Select Case Len(sStr)??Case 8???If DateDiff("yyyy", dDate, Date()) < 19 Then Exit Function???oRE.Pattern?= "^[\d]{8}$"???If Not oRE.Test(sStr) Then Exit Function???If sStr <> sDate Then Exit Function??Case 15???oRE.Pattern?= "^[\d]{15}$"???If Not oRE.Test(sStr) Then Exit Function???If Mid(sStr, 7, 6) <> Right(sDate, 6) Then Exit Function???If CInt(Mid(sStr, 14, 1)) Mod 2 <> nSex Then Exit Function??Case 18???oRE.Pattern?= "^(?:[\d]{18}|[\d]{17}X)$"???If Not oRE.Test(sStr) Then Exit Function???If Mid(sStr, 7, 8) <> sDate Then Exit Function???If CInt(Mid(sStr, 17, 1)) Mod 2 <> nSex Then Exit Function??????Dim nN, aW, aC, nL??????nN = 0???aW = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)???aC = Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")??????For nL = 1 To 17????nN = nN + CInt(Mid(sStr, nL, 1)) * aW(nL - 1)???Next??????If UCase(Right(sStr, 1)) <> aC(nN Mod 11) Then Exit Function??Case Else???Exit Function?End Select??Set oRE??= Nothing??CheckIDCard = "True"End FunctionFunction DblNum(nNum)?DblNum = nNum?If DblNum <10 Then DblNum = "0" & DblNumEnd Function进入讨论组讨论。 建设 C++指针直接调用类成员函数探讨用个小函数 让Excel统计的出勤情况更直观一个取小数位数的函数（能四舍五入）VB API函数介绍--绘图函数 上兼职海网站建设

网站建设相关信息