时间:-03-08 20:59:40
作者:摘要:根据输入的身份证号获取生日及性别
正文:
获取生日：
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
Access软件网QQ交流群(群号:39785885)
Access源码网店
