如何从身份证号中获取生日信息？

张誉　发表于：2010-05-17 10:09:56 　

假设输入身份证号的文本框为txtIDCard,输入生日的文本框为txtBirthday。

Private Sub txtIDCard_AfterUpdate()

If (Len(Me!txtIDCard)<>15 and Len(Me!txtIDCard)<>18) Then

MsgBox "您输入的身份证号不合法，请重新输入！",vbokonly,"提示"

Me!txtIDCard=null

Me.txtIDCard.SetFocus

Exit Sub

End If

If Len(Me!txtIDCard)=15 Then

Me!txtBirthday=____________________________________________

End If

If Len(Me!txtIDCard)=18 Then

Me!txtBirthday=____________________________________________

End If

End Sub

我的问题是：如何从身份证号中提出和生日相关的数字并转换为日期型？

望高手给予解答，谢谢。

赵文斌发表于：2010-05-17 10:30:21

If Len(Me!txtIDCard)=15 Then

Me!txtBirthday=mid(me.txtidcard,7,2) & "-" & mid(me.txtidcard,9,2) & "-" & mid(me.txtidcard,11,2)

End If

If Len(Me!txtIDCard)=18 Then

Me!txtBirthdaymid(me.txtidcard,7,4) & "-" & mid(me.txtidcard,11,2) & "-" & mid(me.txtidcard,13,2)

End If

张誉发表于：2010-05-17 10:36:56

问题已解决，谢谢您的帮助！

总记录：2篇页次：1/1 9 1 :

Access交流中心