一个用于验证18位身份证号码有效性的通用函数

红尘如烟

1. '===================================================================
   
2. '函数名称： IsIDNumber
   
3. '功能描述： 根据GB11643-1999编码规则验证18位身份证号码是否有效
   
4. '输入参数： 参数1：IDNumber 必需的，18位身份证号码
   
5. '返回参数： 有效返回True,无效返回False
   
6. '兼 容 性：
   
7. '使用示例： IsIDNumber("370284197901130819") '返回True
   
8. '相关调用：
   
9. '作 者： 红尘如烟
   
10. '创建日期： 20010-4-25
    
11. '===================================================================
    
12. Function IsIDNumber(ByVal IDNumber As String) As Boolean
    
13. Const W As String = "79058421637905842" '加权因子
    
14. Const C As String = "10X98765432" '校验码
    
15. Dim S As Integer, i As Integer, T As Integer
    
16. 
    
17. IDNumber = UCase(Trim(IDNumber))
    
18. If Len(IDNumber) <> 18 Then Exit Function
    
19. If Not IsNumeric(Mid(IDNumber, 1, 17)) Then Exit Function
    
20. If Not IDNumber Like "*[0-9X]" Then Exit Function
    
21. 
    
22. 
    
23. For i = 1 To 17
    
24.     T = Mid(W, i, 1)
    
25.     If T = 0 Then T = 10
    
26.     S = S + Mid(IDNumber, i, 1) * T
    
27. Next
    
28. T = S Mod 11
    
29. If Right(IDNumber, 1) = Mid(C, T + 1, 1) Then IsIDNumber = True
    
30. End Function
    

复制代码

ZHENGLIAN

这个不错哦 ，好东西呀！我要下了！多谢！多谢！！

asklove

下了

xuwenning

收下

tmtony

谢谢分享!

layaman_999

三克油，饿骆驼

sgrshh29

好

石三少

谢谢分享

yanwei82123300

这个不错哦 ，好东西呀！我要下了！多谢！多谢！！

t小宝

好东西，收藏了