Question

VB求指导在文本框1中输入身份证号码，点击command1后在文本框2中显示xx年xx月xx日生，

VB求指导在文本框1中输入身份证号码，点击command1后在文本框2中显示xx年xx月xx日生，男或女（根据身份证号倒数第二位来判别，奇数为男，偶数为女）

Answer 1

主要用 vb中的 mid 字符串截取函数， 截取身份证的多少位到多少位，就可以得出你要的数据来

追问

能具体点吗

能具体点吗

能具体点吗

追答

Private Sub Command1_Click()
Dim idCard As String
Dim year As String
Dim month As String
Dim day As String
Dim sex As String
If Text1.Text = "" Then
MsgBox ("请输入身份证")
Exit Sub
End If
If Len(Text1.Text) 18 Then
MsgBox ("请输入正确的身份证")
Exit Sub
End If
idCard = Text1.Text
year = Mid(idCard, 7, 4)
month = Mid(idCard, 11, 2)
day = Mid(idCard, 13, 2)
sex = Mid(idCard, 17, 1)
If sex Mod 2 = 1 Then
sex = "男"
Else
sex = "女"
End If
Text2.Text = "生日:" & year & "年" & month & "月" & day & "号" & "性别:" & sex
End Sub