求助身份证号换算年龄

jhwang · 发表于 2009-2-28 16:17:45

请教如何查询身份证换算年龄（周岁），盼谢！

chaojianan · 发表于 2009-2-28 16:41:23

本帖最后由 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:55

作为新手，我也有体会，给你个现成的吧，拿别人的，然后修改了一下，里面有年龄、性别、出生日期都是通过身份证得到的。

jhwang · 发表于 2009-3-1 14:06:37

谢谢。2位

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 求助身份证号换算年龄

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)