如何用VB准确计算年龄
FunctionCalcAge(datEmpDateOfBirthasVariant)asInteger
CalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
EndFunction->
CalcAge=Int(DateDiff("y",datEmpDateOfBirth,Date())/365.25)
EndFunction->
- 上一篇:在VB中获取和修改计算机名字
- 下一篇:重启Windows2000/NT系统
精彩图集
精彩文章