根据身份证号获取生日、性别的代码

时　间:2019-03-08 20:59:40
作　者:杨雪   ID：42182  城市：南京
摘　要:根据输入的身份证号获取生日及性别
正　文:

获取生日：

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