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