Office中国论坛/Access中国论坛

标题: 读取身份证号中的性别和出生日期 [打印本页]

作者: 楚天寒 时间: 2009-4-7 22:18
标题: 读取身份证号中的性别和出生日期
'我用的身份证信息识别代码
[email=]'jjxsz@126.com[/email]

Private Sub 证件号码_AfterUpdate()
Dim Cd As Integer  '定义“长度”变量:Cd
Dim Nian, Yue, Re, Xb As String '定义 "年"、 “月”、“ 日”、“性别”变量
Cd = Len(证件号码)
If Cd = 18 Then
  Nian = Mid(证件号码, 7, 4)
  Yue = Mid(证件号码, 11, 2)
  Re = Mid(证件号码, 13, 2)
  Xb = Mid(证件号码, 17, 1)
ElseIf Cd = 15 Then
  Nian = "19" & Mid(证件号码, 7, 2)
  Yue = Mid(证件号码, 9, 2)
  Re = Mid(证件号码, 11, 2)
  Xb = Mid(证件号码, 15, 1)
Else
  MsgBox "您输入的身份证号有误！长度应为15位或者18位，但实际长度为：" & Cd
  Exit Sub
End If
出生日期 = Nian & "年" & Yue & "月" & Re & "日"
Xb = Xb Mod 2
If Xb = 1 Then
性别.Value = "男"
Else
性别.Value = "女"
End If
End Sub

附源程序[attach]37153[/attach]

作者: ymcwaq 时间: 2009-4-8 02:32
哈哈,强啊,顶你先~

作者: chuang0321 时间: 2009-4-8 09:05
不错

！不过“Ri”写成了“Re”，拼音有问题，呵呵！

作者: gdjdyyj 时间: 2009-4-9 09:43
学习

作者: JUN1978 时间: 2009-4-10 09:49

作者: wt007 时间: 2009-6-10 23:58
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)