概要：なぜVBAで日付操作が重要なのか
Excel VBAを扱うエンジニアにとって、日付と時刻の処理は避けて通れない「最重要項目」の一つです。売上データの集計、締め日までの逆算、ログ出力時のタイムスタンプ付与など、あらゆる業務プロセスに日付が絡みます。しかし、Excelのシリアル値という概念に翻弄され、日付計算でバグを埋め込んでしまうケースが後を絶ちません。本記事では、初心者から中級者までが明日から即座に活用できる、堅牢かつ洗練された日付・時刻操作テクニックを網羅的に解説します。単なる関数の紹介に留まらず、実務で遭遇する「罠」を回避するためのベストプラクティスを伝授します。
詳細解説：日付・時刻の内部構造と基本関数
VBAにおける日付は、内部的には「倍精度浮動小数点数（Double型）」として管理されています。これを「シリアル値」と呼び、1900年1月1日を「1」として、1日経過するごとに数値を1ずつ加算していく仕組みです。時刻は、その小数部（1日＝24時間＝1.0）として表現されます。例えば、12時間は0.5となります。
この仕組みを理解せずに「文字列」として日付を扱うと、必ず計算エラーが発生します。日付を扱う際は、必ずDate型、あるいは計算が必要な場合はDouble型を意識し、DateAdd関数やDateDiff関数を駆使することが鉄則です。
サンプルコード：実務で使える即効テクニック集
以下に、実務現場で頻出する処理をコードとしてまとめました。これらをモジュールにコピペして、適宜カスタマイズしてください。
' 1. 現在の日時を取得し、ログ出力に適した形式で返す関数
Function GetFormattedTimestamp() As String
' yyyymmdd_hhmmss 形式で文字列を取得
GetFormattedTimestamp = Format(Now, "yyyymmdd_hhmmss")
End Function
' 2. 特定の日付から「翌月の最終営業日」を算出するロジック
' 土日を回避する実務的な判定ロジック
Function GetNextMonthLastBizDay(targetDate As Date) As Date
Dim nextMonth As Date
Dim lastDay As Date
' 翌月の1日を取得
nextMonth = DateSerial(Year(targetDate), Month(targetDate) + 1, 1)
' 翌月の末日を取得
lastDay = DateSerial(Year(nextMonth), Month(nextMonth) + 1, 0)
' 末日が土日の場合は金曜日に戻す
Do While Weekday(lastDay, vbSunday) = vbSunday Or Weekday(lastDay, vbSunday) = vbSaturday
lastDay = lastDay - 1
Loop
GetNextMonthLastBizDay = lastDay
End Function
' 3. 2つの日付間の「稼働日」のみをカウントする関数
' 土日を除いた日数を計算する際に便利
Function CountWorkDays(startDate As Date, endDate As Date) As Long
Dim i As Date
Dim count As Long
For i = startDate To endDate
If Weekday(i, vbMonday) < 6 Then
count = count + 1
End If
Next i
CountWorkDays = count
End Function
詳細解説：DateAddとDateDiffの極意
日付計算において最も避けるべきは、単純な「+1」や「-1」による加算です。これを行うと、うるう年や月跨ぎの処理で計算が破綻します。VBAには強力な組み込み関数が用意されています。
DateAdd関数は、指定した単位（年、月、日、時間など）を柔軟に加減算できます。例えば「3ヶ月後の日付」を取得する場合、単に90日を足すのではなく、DateAdd("m", 3, Date)と記述すべきです。これにより、2月が28日までしかない年や、31日まである月を意識することなく、正確な日付が算出されます。
また、DateDiff関数は「2つの日付の差分」を求める際に必須です。「今日から締め日まで残り何日か」を判定する際、日付の引き算（Date1 - Date2）を行うと、時刻情報が含まれている場合に期待通りの整数値が返らないことがあります。DateDiff("d", Date1, Date2)を使用することで、時刻要素を排除した純粋な「日数差」を確実に取得できます。
実務アドバイス：バグを生まないための「3つの鉄則」
1. 常にDate型を明示する：
変数を宣言する際、Variant型やString型で日付を扱うのは避けましょう。必ず「Dim dt As Date」と宣言し、コンパイラによるチェックを働かせることで、型不一致によるランタイムエラーを未然に防ぎます。
2. 「ハードコーディング」を避ける：
「2023/12/31」のような固定値をコード内に直接書くのはNGです。日付はPCの地域設定やExcelのオプションに依存するため、DateSerial関数を使用して、年・月・日を数値で指定して日付を生成する癖をつけましょう。これにより、環境依存のバグをゼロにできます。
3. 祝日判定には外部テーブルを活用する：
土日判定はWeekday関数で可能ですが、日本の祝日は複雑です。祝日リストを作成し、COUNTIFS関数やVLOOKUP関数、あるいはVBA内での配列検索を組み合わせて「稼働日」を判定する設計が、長期的なメンテナンス性を高めます。
まとめ：日付操作を制する者がVBAを制する
日付・時刻の処理は、一見地味ですが、自動化の精度を左右する極めて重要な要素です。本日紹介したDateAddやDateSerial、そしてWeekdayによるロジックは、どんな複雑な業務システムでも必ずと言っていいほど登場する「定石」です。
コードを記述する際は、常に「この日付は将来的に例外（うるう年や月末など）が発生しないか？」と自問自答してください。この視点を持つだけで、あなたのVBAスキルは一段上のレベルに到達します。まずは、上記のサンプルコードを自身の環境で実行し、日付の生成から計算まで、その挙動を体感してみてください。VBAにおける日付操作のストレスが解消され、より高度な開発に集中できるようになるはずです。Excel VBAの世界は、こうした小さなテクニックの積み重ねによって、より強力で、より信頼性の高いツールへと進化するのです。
