■年齢の計算関数
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