20締で年月度と年度を求める関数をVBAで作る

環境

Excel 2019で検証

###経緯
20締で月度と年度が必要になりました。
標準関数でも作成できそうですが、関数の入れ子が気持ち悪いので作成してみた。

年月度を求めるコード

引数：日付
戻値：計上年月度

Function get_getsudo(mydate As Date) As String

    Dim myyear
    Dim mymonth
    Dim myday
    
    myyear = Year(mydate)
    mymonth = Month(mydate)
    myday = Day(mydate)

    If myday >= 21 Then
        myday = 21
        mymonth = mymonth + 1
        
        If mymonth = 13 Then
        mymonth = 1
            myyear = myyear + 1
        End If
      Else
    End If
    
    get_getsudo = myyear & "年" & mymonth & "月度"

End Function

年度を求めるコード

引数：日付
戻値：計上年度。１～３月は前年度です。

Function get_getnendo(mydate As Date) As String

    Dim myyear
    Dim mymonth
    Dim myday
    
    myyear = Year(mydate)
    mymonth = Month(mydate)
    myday = Day(mydate)

    If myday >= 21 Then
        mymonth = mymonth + 1
        
        If mymonth = 13 Then
            myyear = myyear + 1
        End If
      Else
    End If
    
    If mymonth <= 3 Then
        myyear = myyear - 1
    End If
    
    get_getnendo = myyear & "年度"

End Function