计算年龄函数

时　间:2021-01-29 20:26:53
作　者:杨雪   ID：42182  城市：南京
摘　要:以下函数以给定日期到当前日期的年数为单位计算年龄。
正　文:

源   码:

Function Age(varBirthDate As Variant) As Integer
    Dim varAge As Variant

    If IsNull(varBirthDate) Then Age = 0: Exit Function

    varAge = DateDiff("yyyy", varBirthDate, Now)
    If Date < DateSerial(Year(Now), Month(varBirthDate), _
                         Day(varBirthDate)) Then
        varAge = varAge - 1
    End If
    Age = CInt(varAge)
End Function