如何用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系统
 
精彩图集
    
    精彩文章
    



