【自作関数】営業年度の開始日を取得

okap1104 - 2023-10-262023-10-28

引数で渡した日付から営業年度の開始日を取得する。
※第2引数に「1～12」を渡すことで、営業年度の開始月を変更できる（デフォルトは４月）

Public Function cmnfunc_getBizYearBegin(ByVal datDate As Date, Optional ByVal lngMonth As Long = 4) As Date
    If Month(datDate) < lngMonth Then
        cmn_getBizYearBegin = DateSerial(Year(datDate) - 1, lngMonth, 1)
    Else
        cmn_getBizYearBegin = DateSerial(Year(datDate), lngMonth, 1)
    End If
End Function