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/)