如何用VB准确计算年龄
2006-02-27 11:42:03 来源:WEB开发网核心提示:FunctionCalcAge(datEmpDateOfBirthasVariant)asIntegerCalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)EndFunction->
FunctionCalcAge(datEmpDateOfBirthasVariant)asInteger
CalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
EndFunction->
CalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
EndFunction->
更多精彩
赞助商链接