标题: 有出生日期换算年龄 [打印本页] 作者: fengle 时间: 2007-1-12 15:54 标题: 有出生日期换算年龄 请叫高手，我想由一个日期换算成年龄，怎么实现？作者: xiaonan 时间: 2007-1-12 16:16
网上找找这方面的代码吧作者: 风过无息 时间: 2007-1-13 14:38
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)