【2026年7月最新】VBA日付の取得・書式変換・比較・計算を完全解説！業務自動化との組み合わせ方も紹介

この記事の内容

1. 01VBAのDate型とは？基礎知識
2. 02今日の日付・現在時刻を取得する方法
3. 03Format関数で日付を書式変換する
4. 04日付の比較・大小判定
5. 05DateAdd・DateDiff関数で日付計算
6. 06IsDate・CDate関数で安全に変換する
7. 07Claude CodeでVBAマクロを自動生成する
8. FAQよくある質問

📚 用語解説

シリアル値（Serial Value）：Excelおよびそれを土台とするVBAが日付・時刻を内部で管理する数値形式。1900年1月1日を「1」として、それ以降の日付は1日ごとに1加算した整数で表す。例えば2024年1月1日はシリアル値「45292」。時刻は1日を1.0として、12:00（正午）は0.5、18:00は0.75として小数で表現する。この仕組みを理解すると、日付の加減算が単純な足し算・引き算で実装できる理由が分かる。

' Date型変数の宣言と代入
Dim d1 As Date
Dim d2 As Date

' 日付リテラルは # で囲む
d1 = #2024/01/15#

' 文字列から自動変換（日本語環境では "yyyy/mm/dd" 形式）
d2 = "2024/03/31"

' シリアル値を確認する
Debug.Print CDbl(d1)    ' 45306 のような整数値
Debug.Print CDbl(d2)    ' 45381 のような整数値

' シリアル値から日付を取得
Dim serialVal As Long
serialVal = 45292
Dim dateFromSerial As Date
dateFromSerial = CDate(serialVal)
Debug.Print dateFromSerial    ' 2024/01/01

' 現在の日付・時刻を取得
Dim today As Date
Dim currentTime As Date
Dim currentDateTime As Date

today = Date          ' 例: 2024/07/10
currentTime = Time    ' 例: 14:30:25
currentDateTime = Now ' 例: 2024/07/10 14:30:25

Debug.Print today
Debug.Print currentTime
Debug.Print currentDateTime

' 年・月・日・時・分・秒を個別に取得
Debug.Print Year(today)    ' 2024
Debug.Print Month(today)   ' 7
Debug.Print Day(today)     ' 10
Debug.Print Hour(Now)      ' 14
Debug.Print Minute(Now)    ' 30
Debug.Print Second(Now)    ' 25

' 曜日を取得（1=日曜, 2=月曜 ... 7=土曜）
Dim weekdayNum As Integer
weekdayNum = Weekday(today)
Debug.Print weekdayNum

' 曜日の名前を取得
Dim weekdayName As String
weekdayName = WeekdayName(Weekday(today))
Debug.Print weekdayName   ' 例: 水曜日

📚 用語解説

WeekDay関数：VBAの組み込み関数で、指定した日付の曜日を1〜7の整数で返す。デフォルトは1=日曜日・7=土曜日だが、第2引数で週の開始曜日を変更できる（vbMonday=2で月曜始まりにする等）。実務では「土日を判定して処理を分岐する」勤怠・スケジュール系マクロでよく使用する。

' 月末日を取得する実用例
Function GetMonthEnd(targetYear As Integer, targetMonth As Integer) As Date
    ' 翌月1日から1日引くと月末日になる
    Dim nextMonth As Date
    If targetMonth = 12 Then
        nextMonth = DateSerial(targetYear + 1, 1, 1)
    Else
        nextMonth = DateSerial(targetYear, targetMonth + 1, 1)
    End If
    GetMonthEnd = nextMonth - 1
End Function

' 使用例
Dim lastDay As Date
lastDay = GetMonthEnd(2024, 2)  ' 2024/02/29 (うるう年)
Debug.Print lastDay

' Format関数の使い方
Dim d As Date
d = #2024/7/10#

Debug.Print Format(d, "yyyy/mm/dd")            ' 2024/07/10
Debug.Print Format(d, "yyyy年mm月dd日")          ' 2024年07月10日
Debug.Print Format(d, "yyyymmdd")               ' 20240710
Debug.Print Format(d, "m月d日(aaa)")            ' 7月10日(水)
Debug.Print Format(d, "ggge年mm月dd日")          ' R6年07月10日（和暦）

' Excelセルへの日付入力（書式付き）
Sub FormatDateToCell()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    Dim targetDate As Date
    targetDate = Date

    ' A1セルに値として入れる
    ws.Range("A1").Value = targetDate
    ' 書式を設定
    ws.Range("A1").NumberFormat = "yyyy/mm/dd"

    ' B1セルに文字列として入れる
    ws.Range("B1").Value = Format(targetDate, "yyyy年mm月dd日")
End Sub

' 日付の比較パターン
Dim d1 As Date
Dim d2 As Date
d1 = #2024/01/15#
d2 = #2024/03/31#

' 大小比較
If d1 < d2 Then
    Debug.Print "d1はd2より前の日付"
End If

' 同日チェック
If d1 = Date Then
    Debug.Print "d1は今日"
End If

' 期限チェックの実用例
Sub CheckDeadline()
    Dim deadline As Date
    deadline = #2024/07/31#

    Dim daysLeft As Long
    daysLeft = deadline - Date   ' 日数差をシリアル値の引き算で取得

    If daysLeft < 0 Then
        MsgBox "期限を " & Abs(daysLeft) & " 日超過しています！", vbCritical
    ElseIf daysLeft <= 7 Then
        MsgBox "期限まであと " & daysLeft & " 日です。", vbExclamation
    Else
        MsgBox "期限まであと " & daysLeft & " 日あります。", vbInformation
    End If
End Sub

📚 用語解説

DateSerial関数：年・月・日を個別の整数値から日付型を生成する関数。DateSerial(2024, 7, 10)は2024年7月10日を返す。月末日の計算（翌月1日の前日）や「n年後の同月同日」の計算に特に便利。また月に12を超える数や日に0以下の数を渡しても正しく繰り上がり・繰り下がりが処理されるため、「先月の末日」をDateSerial(Year(Date), Month(Date), 0)と書くことができる。

「"2024/12/01" > "2024/09/30"」のような文字列比較は辞書順比較になり、日付の大小とは一致しません。必ずDate型またはシリアル値（Long/Double）に変換してから比較してください。また、CDateへの変換前にIsDateによる検証を忘れずに行ってください。

' DateAdd関数: 日付に期間を加算する
' DateAdd(interval, number, date)
'   interval: 加算単位 ("yyyy"=年, "m"=月, "d"=日, "ww"=週, "h"=時, "n"=分, "s"=秒)
'   number: 加算する数値（負数で減算）
'   date: 基準となる日付

Dim baseDate As Date
baseDate = #2024/01/31#

' 1年後 → 2025/01/31
Debug.Print DateAdd("yyyy", 1, baseDate)

' 3ヶ月後 → 2024/04/30 (月末を超えない)
Debug.Print DateAdd("m", 3, baseDate)

' 10日後 → 2024/02/10
Debug.Print DateAdd("d", 10, baseDate)

' 2週間後 → 2024/02/14
Debug.Print DateAdd("ww", 2, baseDate)

' ===========================
' DateDiff関数: 2つの日付の差を求める
' DateDiff(interval, date1, date2)
'   interval: 差の単位 (DateAddと同じ)
'   date1, date2: 比較する2つの日付（date2 - date1の差）
' ===========================

Dim startDate As Date
Dim endDate As Date
startDate = #2024/04/01#
endDate = #2024/07/10#

' 経過日数
Debug.Print DateDiff("d", startDate, endDate)     ' 100

' 経過ヶ月数（切り捨て）
Debug.Print DateDiff("m", startDate, endDate)     ' 3

' 経過年数
Debug.Print DateDiff("yyyy", #2000/05/15#, Date) ' 例: 24

' 実務例：請求書の支払期日（翌月末）を自動計算
Function GetPaymentDueDate(invoiceDate As Date) As Date
    ' 翌月の1日を取得
    Dim nextMonthFirst As Date
    nextMonthFirst = DateSerial(Year(invoiceDate), Month(invoiceDate) + 1, 1)

    ' 翌月末日（翌々月1日 - 1日）
    GetPaymentDueDate = DateSerial(Year(invoiceDate), Month(invoiceDate) + 2, 0)
End Function

' 使用例
Dim invoice As Date
invoice = #2024/06/25#
Debug.Print GetPaymentDueDate(invoice)   ' 2024/07/31

📚 用語解説

DatePart関数：日付から指定した部分（年・月・日・時・分・秒・曜日・週番号・四半期）を整数として抽出する汎用関数。DatePart("q", Date)で現在の四半期（1〜4）を取得できる。Year()・Month()・Day()などの個別関数でも同じ処理ができるが、DatePartは動的に抽出部分を変えたい場合（interval引数に変数を渡す）に便利。

' IsDate: 日付として有効かチェック (True/False)
Debug.Print IsDate("2024/07/10")    ' True
Debug.Print IsDate("2024/13/01")    ' False (13月は存在しない)
Debug.Print IsDate("abc")           ' False

' CDate: 文字列・数値をDate型に変換
Dim str1 As String
str1 = "2024年7月10日"
If IsDate(str1) Then
    Dim d As Date
    d = CDate(str1)
    Debug.Print d    ' 2024/07/10
End If

' セルから日付を安全に読み取るパターン
Sub ReadDateFromCell()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    Dim cellValue As Variant
    cellValue = ws.Range("A1").Value

    If IsDate(cellValue) Then
        Dim readDate As Date
        readDate = CDate(cellValue)
        Debug.Print "有効な日付: " & Format(readDate, "yyyy/mm/dd")
    Else
        MsgBox "A1セルに有効な日付が入力されていません。", vbCritical
    End If
End Sub

セルの値をString型変数に代入するとエラーが発生することがあります。セルから値を読み取る際は`Dim cellValue As Variant`でVariant型を使い、IsDateで検証してからCDateで変換するパターンが最も安全です。

' 年齢計算の実用例（誕生日から今日までの年数）
Function CalcAge(birthDate As Date) As Integer
    Dim age As Integer
    age = DateDiff("yyyy", birthDate, Date)

    ' 今年の誕生日がまだ来ていない場合は1引く
    If Month(birthDate) > Month(Date) Then
        age = age - 1
    ElseIf Month(birthDate) = Month(Date) And Day(birthDate) > Day(Date) Then
        age = age - 1
    End If
    CalcAge = age
End Function

' 使用例
Dim birth As Date
birth = CDate("1990/05/25")
Debug.Print CalcAge(birth)   ' 今日現在の年齢

📚 用語解説

CDate関数：様々なデータ型（String・Integer・Double等）をDate型に強制変換するVBAの組み込み関数。CDate("2024/7/10")・CDate(45292)どちらも2024/07/10を返す。注意点として、変換できない値が渡されると「型が一致しません」エラー（実行時エラー13）が発生するため、必ずIsDateで事前検証するか、On Error GoToでエラーハンドリングを実装すること。

「ExcelのSheet1を使います。A列（2行目から）に顧客名、B列に契約開始日（yyyy/mm/dd）、C列に契約月数が入っています。D列に契約終了日（DateAddで契約月数後の日付）を計算して入力し、E列に今日から終了日までの残り日数を入れてください。残り30日以内はE列を赤色、31〜60日は黄色にしてください。IsDateでB列を検証し、無効な場合はF列に「日付エラー」と表示してください。エラーハンドリングとコメントを日本語で入れてください。」

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？