设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3584|回复: 3
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2009-2-28 16:17:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教如何查询身份证换算年龄(周岁),盼谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 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)
3#
发表于 2009-2-28 17:52:55 | 只看该作者
作为新手,我也有体会,给你个现成的吧,拿别人的,然后修改了一下,里面有年龄、性别、出生日期都是通过身份证得到的。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2009-3-1 14:06:37 | 只看该作者
谢谢。2位
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-12 03:42 , Processed in 0.200008 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表