关于身份证的提取函数sfz

maozhe

'身份证信息函数
'第一个参数，目标单元格！
'第二个参数选项：出生日期：csrq,出生年月：csyn，出生年：csn，年龄：nl，性别：xb，无参数，检查身份证长度是否有误！

1. Function sfz(rng As Range, Optional s As String) As String
   
2.     If Len(rng) <> 18 Then
   
3.         sfz = "SFZ长度错误"
   
4.     ElseIf (Mid(rng, 11, 2) > 12) Or (Mid(rng, 13, 2) > 31) Then
   
5.         sfz = "SFZ日期错误"
   
6.     ElseIf s = "csrq" Then
   
7.         sfz = Application.Text(Mid(rng, 7, 8), "0000-00-00")
   
8.     ElseIf s = "csny" Then
   
9.         sfz = Application.Text(Mid(rng, 7, 6), "0000年00月")
   
10.     ElseIf s = "csn" Then
    
11.         sfz = Application.Text(Mid(rng, 7, 4), "0000年")
    
12.     ElseIf s = "nl" Then
    
13.         sfz = Year(Now()) - (19 & Mid(rng, Len(rng) / 2, 2)) & "岁"
    
14.     ElseIf s = "xb" Then
    
15.         sfz = IIf(Mid(rng, 17, 1) Mod 2, "男", "女")
    
16.     Else
    
17.         sfz = "参数错误"
    
18.     End If
    
19. End Function

复制代码

这是闲暇时娱乐的函数，功能强悍，多种功能与一身的超级函数

maozhe

该函数就两个参数，一个是身份证号码，一个是你想提取的身份信息，功能还有很补不完善的地方，以后还会努力改进！本次修改了默认选项，就是说你仅仅一个参数也行，自动返回出生日期，格式为“0000-00-00”，添加出生年月日选项，代码如下：

1. 
   

复制代码

1. 
   
2. '身份证信息函数
   
3. '第一个参数，目标单元格！
   
4. '第二个参数选项：出生日期：csrq,出生年月日：csnyr，出生年月：csny，出生年：csn，年龄：nl，性别：xb，无参数，检查身份证长度是否有误！
   
5. 
   
6. Function sfz(rng As Range, Optional S As String = "csrq") As String
   
7.     If Len(rng) <> 18 Then
   
8.         sfz = "SFZ长度错误"
   
9.     ElseIf (Mid(rng, 11, 2) > 12) Or (Mid(rng, 13, 2) > 31) Then
   
10.         sfz = "SFZ日期错误"
    
11.     ElseIf S = "csrq" Then
    
12.         sfz = Application.Text(Mid(rng, 7, 8), "0000-00-00")
    
13.         ElseIf S = "csnyr" Then
    
14.         sfz = Application.Text(Mid(rng, 7, 8), "0000年00月00日")
    
15.     ElseIf S = "csny" Then
    
16.         sfz = Application.Text(Mid(rng, 7, 6), "0000年00月")
    
17.     ElseIf S = "csn" Then
    
18.         sfz = Application.Text(Mid(rng, 7, 4), "0000年")
    
19.     ElseIf S = "nl" Then
    
20.         sfz = Year(Now()) - (19 & Mid(rng, Len(rng) / 2, 2)) & "岁"
    
21.     ElseIf S = "xb" Then
    
22.         sfz = IIf(Mid(rng, 17, 1) Mod 2, "男", "女")
    
23.     Else
    
24.         sfz = "参数错误"
    
25.     End If
    
26. End Function

复制代码

玉阳山人

感谢老师无私分享！