VBAで生年月日から年度末に何歳になっているか計算する

'------------------------------------------------------------
'   処理内容:誕生日から実行日の年度末に何歳か計算する
'   引数:生年月日
'   戻り値:年齢
'　 更新：
'------------------------------------------------------------
Function NendoAge(BD As Date) As Integer
    '年度末日
    Dim NendoEndDate   As Date

    '年度末日付の定型文字作成
    Const DATE_331 = "/3/31"
   
    '実行日の年度末算出（年＋定型文字列）
    '現在日が4月～12月なら年度末日の年は現在年+1
    If Month(Date) >= 4 Then
        NendoEndDate = CDate(Year(Date) + 1 & DATE_331)
    Else
        NendoEndDate = CDate(Year(Date) & DATE_331)
    End If

    '生年月日と年度末日の年の差分を計算する
    NendoAge = DateDiff("yyyy", BD, NendoEndDate)
    
    'ただし誕生日が4月1日以降の場合、年度末に年齢は増えないため-1する
    If Month(BD) > 3 Then
        NendoAge = NendoAge - 1
    End If

End Function