概要

Day関数は、Excel VBAで指定した日付からその「日」の数値（1から31の範囲）を取得するための関数です。この関数は、日付データから「日」だけを抽出し、計算や条件分岐に使用できます。例えば、レポートの作成や特定の日に基づいたアクションを取る際に便利です。

構文

Day(対象の日付)

パラメータ

• 対象の日付

  Date型の値を指定します。この日付から「日」を取得します。

戻り値

Day関数は、指定された日付の「日」を表す数値（1から31）を返します。

説明

Day関数を使用することで、日付データの「日」の部分を簡単に取得できます。例えば、特定の日付が月の何日であるかを調べたり、その値を基に計算やデータ処理を行ったりできます。

• 日付から日の数値を取得

  Day関数は、指定された日付から「日」の部分を取り出し、数値として返します。

• 利用シーン

  特定の日を条件としたデータ処理、日ごとの集計、イベントトリガーの実装など、多様な用途で利用できます。

使用例

基本的な使用例 - 日付から日を取得する

Sub ShowDay()
    Dim sampleDate As Date
    Dim dayNumber As Integer

    sampleDate = #2024/09/23#
    dayNumber = Day(sampleDate)

    MsgBox "指定された日付の日: " & dayNumber  ' 結果: 23
End Sub

今日の日付から日を取得する

Sub GetCurrentDay()
    Dim currentDay As Integer

    currentDay = Day(Date)  ' 現在の日付の日を取得

    MsgBox "今日の日は: " & currentDay  ' 例: 今日の日は: 23
End Sub

セルの日付から日を取得し、別のセルに表示する

Sub ExtractDayFromCell()
    Dim dateValue As Date
    Dim dayValue As Integer

    dateValue = Range("A1").Value  ' A1セルに日付が入っていると仮定
    dayValue = Day(dateValue)

    Range("B1").Value = dayValue  ' B1セルに日を表示
End Sub

応用例

日付から日を抽出して特定の日の処理を行う

Day関数を使用して、特定の日に特別な処理を行う例です。

Sub SpecialDayAction()
    Dim checkDate As Date

    checkDate = #2024/12/25#  ' クリスマスの日付
    If Day(checkDate) = 25 Then
        MsgBox "今日はクリスマスです！"
    Else
        MsgBox "今日は特別な日ではありません。"
    End If
End Sub

日ごとのデータを集計する

特定の日付の「日」を取得し、その日ごとにデータを集計する例です。

Sub SumSalesByDay()
    Dim lastRow As Long
    Dim i As Long
    Dim salesDate As Date
    Dim totalSales As Double
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row  ' A列の最終行を取得

    For i = 2 To lastRow  ' 2行目から最終行まで繰り返す
        salesDate = Cells(i, 1).Value  ' A列の日付
        If Day(salesDate) = 15 Then  ' 15日の日付のデータを集計
            totalSales = totalSales + Cells(i, 2).Value  ' B列の売上を合計
        End If
    Next i

    MsgBox "15日の合計売上: " & totalSales
End Sub

月末かどうかをチェックする

日付が月の末日かどうかを確認する例です。

Sub CheckEndOfMonth()
    Dim someDate As Date

    someDate = #2024/09/30#

    If Day(someDate) = Day(DateSerial(Year(someDate), Month(someDate) + 1, 0)) Then
        MsgBox "この日は月末です。"
    Else
        MsgBox "この日は月末ではありません。"
    End If
End Sub

備考

• Day関数は、日付の「日」の部分のみを返します。日付のフォーマットに関係なく、正確な「日」の数値が取得できます。

• Date型ではなく文字列として日付を扱う場合、VBAは自動的に日付型に変換して処理しますが、入力ミスがあるとエラーになる場合があります。

• Day関数とMonth、Year関数を組み合わせることで、日付から月や年も取得し、さらに複雑な日付操作が可能になります。