Question

用身份证号码，计算年龄的vb程序写法

Answer 1

dim s as string,y as string i as long
s=xxxxxx19920315xxxx
y=mid(s,7,4)
从身份证的第七位取4个
i=year(now())-val(y)+1
now()函数是获得现在的电脑的时间，year是把now的年份取出，val是把字符串转换成数字，因为刚生下来就是1岁所以要加1
msgbox i

Answer 2

从第7位开始的8个数字就是生日,用mid函数截取4位年份,与当前日期

s = "53010219200508011x"
msgbox Year(Now) - Mid(s, 7, 4)