有出生日期换算年龄

fengle

请叫高手，我想由一个日期换算成年龄，怎么实现？

xiaonan

网上找找这方面的代码吧

风过无息

Public Function old(MyDate)
If isdate(MyDate) then
    MyYear = Year(MyDate)
    Cyear=Year(date)
        if (MyYear>Cyear)  then
        msgbox "出生年("&MyYear&")不可以大于当前年 "
        else
        ōld=Cyear-MyYear
        end if
    else
    msgbox "错误的日期"
    end if
End Function
ddate="October 19, 1962"
old1=old(ddate)
msgbox("您的岁数是："old1)

具体说明请参看
http://blog.51testing.com/?3528/action_viewspace_itemid_2980.html

fengle

谢谢风过无息的帮助！！

fengle

如果想精确到××岁××月××天是不是就比较麻烦了？？

风过无息

是计较麻烦了，需要闰年闰月的计算。