任意の日付から会社(法人)の四半期(クォーター)を求める【パーツ化】【ExcelVBA】

任意の日付から、法人の「四半期」（クォーター）を算出したい場合があります。
事業年度から現在が第一四半期なのか、第二四半期なのか？第三四半期なのか？第四四半期なのか
判断する処理をパーツ化しています。

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

任意の日付から会社(法人)の四半期(クォーター)を求めるパーツ化コード

Public Function Get_Quarter(sDate As Date, fiscalStartMonth As Long) As Long
    Dim tmp As Long
    
    '■期首からの月数を計算
    tmp = (Month(sDate) - fiscalStartMonth + 12) Mod 12
    
    '■ 四半期を判別
    Get_Quarter = (tmp \ 3) + 1
    
End Function

実際の使い方

Public Sub sample()
　　’10月が期首の会社の四半期を調べる
    Debug.Print Get_Quarter("2023/10/01", 10)   '1
    Debug.Print Get_Quarter("2023/11/01", 10)   '1
    Debug.Print Get_Quarter("2023/12/01", 10)   '1
    Debug.Print Get_Quarter("2024/01/01", 10)   '2
    Debug.Print Get_Quarter("2024/02/01", 10)   '2
    Debug.Print Get_Quarter("2024/03/01", 10)   '2
    Debug.Print Get_Quarter("2024/04/01", 10)   '3
    Debug.Print Get_Quarter("2024/05/01", 10)   '3
    Debug.Print Get_Quarter("2024/06/01", 10)   '3
    Debug.Print Get_Quarter("2024/07/01", 10)   '4
    Debug.Print Get_Quarter("2024/08/01", 10)   '4
    Debug.Print Get_Quarter("2024/09/01", 10)   '4
End Sub