提取身份证的性别、出生年月日的VBA

提取身份证的性别、出生年月日的VBA 提取身份证的出生年月日的VBA 方法一:使用VBA建立自定义 在EXCEL中建立模块，输入下列代码，则在单元格中就可以使用自定义函数XB()，则就可以根据身份份号码得出性别，使用自定义函数CS()，则就可以根据身份份号码得出出生日期。 '根据身份证号码求出生日期与性别 Function xb(Number) If Len(Number) = 15 Then se = Val(Right(Number, 1)) Select Case se Case 0, 2, 4, 6, 8 xb = "女" Case 1, 3, 5, 7, 9 xb = "男" End Select End If If Len(Number) = 18 Then se = Val(Mid(Number, 17, 1)) Select Case se Case 0, 2, 4, 6, 8 xb = "女" Case 1, 3, 5, 7, 9 xb = "男" End Select End If End Function Function cs(Number) As Date If Len(Number) = 15 Then cs = "19" + Mid(Number, 7, 2) + "-" + Mid(Number, 9, 2) + "-" + Mid(Number, 11, 2) If Len(Number) = 18 Then cs = Mid(Number, 7, 4) + "-" + Mid(Number, 11, 2) + "-" + Mid(Number, 13, 2) End Function 方法二:使用函数 =IF(LEN(C2)=15,concatenate("19",MID(C2,7,2),"-",MID(C2,9,2),"-",MID(C2,11,2)),if(len(c2)<>18,"身份证错误 ",concatenate(MID(C2,7,4),"-",MID(C2,11,2),"-",MID(C2,13,2))) 或 =IF(LEN(C2)=15,"19"&MID(C2,7,2)&"-"&MID(C2,9,2)&"-"&MID(C2,11,2),I F(LEN(C2)<>18,"身份证错误 ",MID(C2,7,4)&"-"&MID(C2,11,2)&"-"&MID(C2,13,2))) “性别”的方法与出生年月大同小异。 =IF(LEN(C2)=15,IF(MOD(MID(C2,15,1),2)<>0,"男","女"),IF(LEN(C2)=18,IF(MOD(MID(C2,17,1),2)<>0,"男","女"),"")) 或 =IF(LEN(C2)=15,IF(MOD(VALUE(RIGHT(C2,3)),2)=0,"女","男"),IF(LEN(C2)=18,IF(MOD(VALUE(MID(C2,15,3)),2)=0,"女","男"),"")) 说明:函数concatenater()的功能: 将两个或多个文本字符串合并为一个文本字符串。 语法:CONCATENATE (text1,text2,...) Text1, text2, ... 为 2 到 255 个将要合并成单个文本项的文本项。 这些文本项可以为文本字符串、数字或对单个单元格的引用。 注解:您也可使用连接符号 (&) 计算运算符代替 CONCATENATE 函数来连接文本项。例如 =A1&B1 与 =CONCATENATE(A1,B1) 返回相同的值。