年齢の計算関数

Public Function 年齢計算(誕生日, 計算日)

If IsDate(誕生日) = False Or IsDate(計算日) = False Then
    年齢計算 = Null
    Exit Function
End If
年齢計算 = IIf(Format(誕生日, "mm/dd") > Format(計算日, "mm/dd"), DateDiff("yyyy", 誕生日, 計算日) - 1, DateDiff("yyyy", 誕生日, 計算日))

End Function