任意の日付から、法人の「第〇期」を算出したい場合があります。
事業年度から現在が何期目なのか判断する処理をパーツ化しています。
任意の日付から会社(法人)の「第〇期」を求めるパーツ化コード
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
注意点
- 任意の日付から法人の「事業年度」(会計期間)を求める場合はこちら。
- 任意の日付から会社(法人)の「第〇期」を求める場合はこちら。
- 任意の日付からクォーターを求める場合はこちら。
- 一般的な年度「4月1日 ~ 翌年3月31日」を取得したい場合はこちら。
コメント