現在の年度の出し方

暦年の1月から12月までを現年度とするのであればnendo = Format(Date, "ggge") & "年度"でいいと思いますが、4月から3月までを年度とするのであれば

Function nendo() If Month(Date) < 4 Then nendo = Format(DateAdd("m", -4, Date), "ggge") & "年度" Else nendo = Format(Date, "ggge") & "年度" End If End Function のようになると思います。

おまけとして、下記は1月１日現在の年齢を算出する方法です。もし、今日現在の年齢が必要であれば、「kijunbi」を「Date()」に置き換える必要があります。 Function nenrei(生年月日) As Integer Dim nowbirthday As Date Dim kijunbi As Date kijunbi = DateSerial(Format(Date, "yyyy"), 1, 1) If IsDate(生年月日) Then nenrei = DateDiff("yyyy", 生年月日, kijunbi) nowbirthday = DateSerial(Year(kijunbi), Month(生年月日), Day(生年月日)) If nowbirthday > kijunbi Then nenrei = nenrei - 1 End If End If End Function