获取生日:
Function 获取生日(身份证号码 As String) As String
If Len(身份证号码) <> 15 And Len(身份证号码) <> 18 Then
MsgBox "身份证号码为15或者18位,请重新填写!", vbInformation, "提示"
Exit Function
End If
If Len(身份证号码) = 15 Then
获取生日 = DateSerial("19" & Mid([身份证号码], 7, 2), Mid([身份证号码], 9, 2), Mid([身份证号码], 11, 2))
Exit Function
End If
If Len(身份证号码) = 18 Then
获取生日 = DateSerial(Mid([身份证号码], 7, 4), Mid([身份证号码], 11, 2), Mid([身份证号码], 13, 2))
Exit Function
End If
End Function
获取性别:
Function 获取性别(身份证号码 As String) As String
If Len(身份证号码) <> 15 And Len(身份证号码) <> 18 Then
MsgBox "身份证号码为15或者18位,请重新填写!", vbInformation, "提示"
Exit Function
End If
If Len(身份证号码) = 15 Then
If Mid([身份证号码], 15, 1) Mod 2 = 0 Then
获取性别 = "女"
Else
获取性别 = "男"
Exit Function
End If
End If
If Len(身份证号码) = 18 Then
If Mid([身份证号码], 17, 1) Mod 2 = 0 Then
获取性别 = "女"
Else
获取性别 = "男"
Exit Function
End If
End If
End Function