根据身份证自动计算出生日期、年龄、性别的例子
时 间:2008-03-06 11:09:14
作 者:Michael jiang ID:104 城市:杭州
摘 要:实现功能:
A、根据身份证号码自动计算出生日期
B、根据身份证号码自动计算年龄(周岁)
C、自动判断身份证号码的位数是否正确。
D、根据身份证号码自动判断性别。
正 文:
应爱在深秋的求助,现将关于如何通过身份证自动计算出生日期的代码发布如下:
1、新建一个窗体,添加身份证号码、出生日期、性别、年龄这四个文本框,名称设定为:sfz,csrq,xb,nl
2、在身份证号码控件的失去焦点事件中写下如下代码:
Private Sub sfz_LostFocus()
Me.Refresh
Me.csrq.Enabled = True
Me.nl.Enabled = True
If Len(sfz) = 15 Then
Me.csrq.SetFocus
Me.csrq = "19" & Mid(sfz, 7, 2) & "-" & Mid(sfz, 9, 2) & "-" & Mid(sfz, 11, 2)
Me.nl.SetFocus
Me.csrq.Enabled = False
Me.nl = Int(DateDiff("d", csrq, date) / 365) & "周岁"
Me.xb.SetFocus
Me.nl.Enabled = False
If Mid(sfz, 15, 1) Mod 2 = 0 Then
Me.xb = "女"
Else
Me.xb = "男"
End If
Me.xl.SetFocus
Me.xb.Enabled = False
Exit Sub
Else
If Len(sfz) = 18 Then
Me.csrq.SetFocus
Me.csrq = Mid(sfz, 7, 4) & "-" & Mid(sfz, 11, 2) & "-" & Mid(sfz, 13, 2)
Me.nl.SetFocus
Me.csrq.Enabled = False
Me.nl = Int(DateDiff("d", csrq, date) / 365) & "周岁"
Me.xb.SetFocus
Me.nl.Enabled = False
If Mid(sfz, 17, 1) Mod 2 = 0 Then
Me.xb = "女"
Else
Me.xb = "男"
End If
Me.xl.SetFocus
Me.xb.Enabled = False
Else
MsgBox ("您输入的身份证号码有误,请重新核实!")
Me.sfz.SetFocus
End If
End If
End Sub
3、实现功能:
A、根据身份证号码自动计算出生日期
B、根据身份证号码自动计算年龄(周岁)
C、自动判断身份证号码的位数是否正确。
D、根据身份证号码自动判断性别。
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)