主题：年龄计算问题

首先利用身份证号码取出出生年月日/比如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