Option Compare Database
Option Explicit

'----------------------------------
'年齢を計算する
'----------------------------------
'value: 誕生日を指定
'----------------------------------
Function HowOldAreYou(value As Date)
    
    Dim old As Long

    '期間を求める
    old = DateDiff("yyyy", value, Date)

    '誕生日が来ていない場合1を引く
    If Format(value, "mm/dd") > Format(Date, "mm/dd") Then old = old - 1

    HowOldAreYou = old

End Function