vb居民身份证 校验函数（VB resident identification card verification function）.docVIP

vb居民身份证 校验函数（VB resident identification card verification function） 公共gctmp收集 昏暗的无线（1至18）为整数的身-份-证校验码 0身-份-证校验 “身-份-证检验函数，如果有错误，返回的是错误的字符信息，正确，则返回空 “调用 函数的CIDCheck（折叠为字符串）字符串 斯特里德=装饰（折叠） 如果Len（折叠）= 15 cidcheck = checkcidc15（折叠） ElseIf Len（折叠）= 18 cidcheck = checkcidc18（折叠） 其他的 cidcheck =“位数不对” 最后如果 端功能 1。15位身-份-证校验 公共功能checkcidc15（ByVal strid15字符串）字符串 昏暗的SA，姓名 昏暗的IA SA =中（strid15，7, 2） 如果CInt（SA）年（现在）- 2000 =“19” SA SA 其他的 =“20” SA SA 最后如果 姓名= SA ”“中（strid15，9, 2）“”中（strid15，11, 2） SA =中（strid15，9, 2） gctmp =新收藏集 gctmp添加姓名。 如果Not IsNumeric（strid15）然后 checkcidc15 =“号码输入有误！有非数字出现！” 退出功能 最后如果 如果瓦迩（SA）＜1或Val（SA） 12 checkcidc15 =“号码输入有误！月份不正确！” 退出功能 最后如果 如果瓦迩（MID（strid15，11, 2））＜1或瓦迩（MID（strid15，11, 2）） 31 checkcidc15 =“号码输入有误！日期不正确！” 退出功能 其他的 如果（瓦迩（MID（strid15，9, 2）= 4）或瓦迩（MID（strid15，9, 2）= 6）或瓦迩（MID（strid15，9, 2）= 9）或瓦迩（MID（strid15，9, 2））= 11）和瓦迩（MID（strid15，11, 2））= 31 checkcidc15 =“月份和日期不匹配号码输入有误！” 退出功能 ElseIf Val（中（strid15，9, 2））= 2（瓦迩（MID（strid15，11, 2）= 30）或瓦迩（MID（strid15，11, 2））= 31）然后 checkcidc15 =“号码输入有误！2月份没有”和Val（MID（strid15，11, 2））和“天” 退出功能 最后如果 最后如果 端功能 “2 18位身-份-证校验 公共功能checkcidc18（ByVal strid18字符串）字符串 昏暗的strid17为字符串，AIWI为整数，数为整数，A18作为字符串 昏暗的SA，姓名 昏暗的IA SA =中（strid18，7, 4） 姓名= SA ”“中（strid18，11, 2）“”中（strid18，13, 2） gctmp =新收藏集 gctmp添加姓名。 s_setwi 如果Not IsNumeric（左（strid18，17））然后 checkcidc18 =“号码输入有误！” 退出功能 最后如果 如果瓦迩（MID（strid18，11, 2））＜1或瓦迩（MID（strid18，11, 2）） 12 checkcidc18 =“号码输入有误！月份不正确！” 退出功能 最后如果 如果瓦迩（MID（strid18，13, 2））＜1或瓦迩（MID（strid18，13, 2）） 31 checkcidc18 =“号码输入有误！”vbcrlf “日期不正确！” 退出功能 其他的 如果（瓦迩（MID（strid18，11， 2)) = 4 or choice (mid (strid18, 11, 2)) = 6 or choice (mid (strid18, 11, 2)) = 9 or choice (mid (strid18, 11, 2)) = 11) and val (mid (strid18, 13, 2)) = 31 then checkcidc18 = 号码输入有误 月份和日期不匹配! exit function elseif choice (mid (strid18, 11, 2)) = 2 and (choice (mid (strid18, 13, 2)) = 30 or choice (mid (strid18, 13, 2)) = 31) then checkcidc18 = 号码输入有误! 2月份没有 choice (mid (strid18, 13, 2)) 天 exit function end if end if strid17 = left (stri