如何用VB准确计算年龄

VB 程序设计

10个成员

发表于 2016-12-27 • 4330 次查看

Function CalcAge(datEmpDateOfBirth as Variant) as Integer
CalcAge = Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
End Function

只看楼主回复倒序查看回复

发表回复

你还没有登录，请先登录或注册！

(大小不能超过2MB，文件类型支持png ,jpg ,gif ,doc ,xls ,txt ,rar ,zip .)

文件名	描述	学币	操作

话题作者

Coding

头衔:无

活跃成员