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