- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 年龄计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20046)
-- 发布时间：2012/5/28 10:51:00
-- 年龄计算问题
通过身份证号码或者出生日期怎么自动计算年龄？谢谢
-- 发布时间：2012/5/28 10:59:00
--
首先利用身份证号码取出出生年月日/比如371108198502056253 先 用SUBSTRING函数取出19850205
Dim s1 As String ="371108198502056253 "
Dim s3 As String
s3 = s1.SubString(6,8)
Output.Show("s3 = " & s3)
以上结果输出是s3 = 19850205
有了以上字段计算年龄更简单了,,只需要和当前日期相减就可以计算出了
希望对你的问题有所帮助 ...
此主题相关图片如下：qq截图20120528105724.jpg
-- 发布时间：2012/5/28 11:06:00
--
看你的前一个帖子,附件中都做好了