時 間:2019-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源碼網店