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

提取身份证的出生年月日的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) =