任意の日付から会社(法人)の「第〇期」を求める【パーツ化】【ExcelVBA】

任意の日付から、法人の「第〇期」を算出したい場合があります。
事業年度から現在が何期目なのか判断する処理をパーツ化しています。

任意の日付から会社(法人)の「第〇期」を求めるパーツ化コード
1. 実際の使い方
注意点
関連記事

任意の日付から会社(法人)の「第〇期」を求めるパーツ化コード

Public Function Get_FinancialPeriod(SearchDate As Date, startDate As Date) As Long
    If Month(SearchDate) >= Month(startDate) Then
        Get_FinancialPeriod = Year(SearchDate) - Year(startDate) + 1
    Else
        Get_FinancialPeriod = Year(SearchDate) - Year(startDate) 
    End If
End Function

実際の使い方

Public Sub sample()
　　'2023/10/1設立の法人の場合の期を取得
    Debug.Print Get_FinancialPeriod("2023/10/01", "2023/10/01") '1
    Debug.Print Get_FinancialPeriod("2024/10/01", "2023/10/01") '2
    Debug.Print Get_FinancialPeriod("2025/10/01", "2023/10/01") '3
    Debug.Print Get_FinancialPeriod("2026/10/01", "2023/10/01") '4
    Debug.Print Get_FinancialPeriod("2027/10/01", "2023/10/01") '5

    Debug.Print Get_FinancialPeriod("2024/09/30", "2023/10/01") '1
    Debug.Print Get_FinancialPeriod("2025/09/30", "2023/10/01") '2
    Debug.Print Get_FinancialPeriod("2026/09/30", "2023/10/01") '3
    Debug.Print Get_FinancialPeriod("2027/09/30", "2023/10/01") '4
    Debug.Print Get_FinancialPeriod("2028/09/30", "2023/10/01") '5
End Sub