一个人的出生日期,你如何计算自己的年龄?
Function Age(varDOB As Variant, Optional varAsOf As Variant) As Variant
'Purpose: 返回年龄
'参数: varDOB = 出生日期
' varAsOf = 计算年龄的日期,默认是今天
Dim dtDOB As Date
Dim dtAsOf As Date
Dim dtBDay As Date
Age = Null
If IsDate(varDOB) Then
dtDOB = varDOB
If Not IsDate(varAsOf) Then
dtAsOf = Date
Else
dtAsOf = varAsOf
End If
If dtAsOf >= dtDOB Then
dtBDay = DateSerial(Year(dtAsOf), Month(dtDOB), Day(dtDOB))
Age = DateDiff("yyyy", dtDOB, dtAsOf) + (dtBDay > dtAsOf)
End If
End If
End Function