VBATips

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

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

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

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


注意点

  • 任意の日付から法人の「事業年度」(会計期間)を求める場合はこちら
  • 任意の日付から会社(法人)の「第〇期」を求める場合はこちら。
  • 一般的な年度「4月1日 ~ 翌年3月31日」を取得したい場合はこちら

関連記事

コメント

タイトルとURLをコピーしました