Office中国论坛/Access中国论坛
标题:
求助身份证号换算年龄
[打印本页]
作者:
jhwang
时间:
2009-2-28 16:17
标题:
求助身份证号换算年龄
请教如何查询身份证换算年龄(周岁),盼谢!
作者:
chaojianan
时间:
2009-2-28 16:41
本帖最后由 chaojianan 于 2009-2-28 16:50 编辑
15为身份证
Dim xb As Single
Me.出生年月 = "19" & Mid(Me.身份证号码, 7, 2) & "/" & Mid(Me.身份证号码, 9, 2) & "/" & Mid(Me.身份证号码, 11, 2)
Me.年龄 = Year(Now()) - Year(CDate(Me.出生年月))
18位身份证
Me.出生年月 = Mid(Me.身份证号码, 7, 4) & "/" & Mid(Me.身份证号码, 11, 2) & "/" & Mid(Me.身份证号码, 13, 2)
Me.年龄 = Year(Now()) - Year(CDate(Me.出生年月))
try
精确计算的话
可用int((Now() - CDate(Me.出生年月))/365)
作者:
ghfmac
时间:
2009-2-28 17:52
作为新手,我也有体会,给你个现成的吧,拿别人的,然后修改了一下,里面有年龄、性别、出生日期都是通过身份证得到的。
[attach]36052[/attach]
作者:
jhwang
时间:
2009-3-1 14:06
谢谢。2位
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3