如何用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->
更多精彩
赞助商链接