【VBAリファレンス】VBA入門VBA関数（日付,DateAdd）

VBAにおける日付操作の要諦：DateAdd関数による動的な期間計算

Excel VBAを用いた業務自動化において、日付の扱いは避けて通れない最重要項目の一つです。売上データの集計期間の設定、契約満了日の自動算出、プロジェクトの工程管理など、日付計算はあらゆるビジネスロジックの根幹を成します。しかし、単に日付を加算・減算するだけでは、うるう年や月末の日数変動といった「日付特有の厄介な仕様」に直面し、バグの温床となりがちです。

本稿では、VBAで日付を自在に操るための強力な武器である「DateAdd関数」に焦点を当て、その仕組みから実務における応用テクニックまで、ベテラン講師の視点で徹底的に解説します。

DateAdd関数の基本仕様と設計思想

DateAdd関数は、指定した日付に対して、特定の期間（年、月、日、時間など）を加算または減算し、その結果を日付型（Date）として返す関数です。その構文は以下の通りです。

DateAdd(interval, number, date)

各引数の役割を正確に理解することが、プロフェッショナルなコードを書く第一歩です。

1. interval（期間単位）: 加算したい単位を文字列で指定します。「yyyy」（年）、「m」（月）、「d」（日）、「h」（時）、「n」（分）、「s」（秒）などが代表的です。特に「分」は「m」ではなく「n」である点に注意が必要です。
2. number（加算量）: 加算する数値を指定します。負の数を指定すれば、過去に遡る（減算する）ことが可能です。
3. date（基準日）: 計算の起点となる日付を指定します。

この関数の最大の利点は、複雑なカレンダーロジックを自前で実装する必要がない点にあります。例えば、「3月31日に1ヶ月を加算する」といった際、DateAdd関数は自動的に4月30日を返してくれます。これを手動で計算しようとすると、各月の日数やうるう年の判定ロジックを記述しなければならず、可読性と保守性が著しく低下します。

実務で差がつくDateAdd関数の実践的コード

以下に、実務で頻出するシナリオを想定したサンプルコードを提示します。

Sub DateCalculationSamples()
    Dim baseDate As Date
    baseDate = Date ' 今日の日付を取得
    
    ' 1. 翌月の同日を算出する
    Dim nextMonth As Date
    nextMonth = DateAdd("m", 1, baseDate)
    
    ' 2. 3ヶ月後の月末日を算出する
    ' まず3ヶ月後の日付を出し、その月の1日から1引くことで月末を得る
    Dim threeMonthsLater As Date
    Dim endOfMonth As Date
    threeMonthsLater = DateAdd("m", 3, baseDate)
    endOfMonth = DateSerial(Year(threeMonthsLater), Month(threeMonthsLater) + 1, 0)
    
    ' 3. 2週間後の日付を算出する
    Dim twoWeeksLater As Date
    twoWeeksLater = DateAdd("d", 14, baseDate)
    
    ' 4. 過去の日付（10日前）を算出する
    Dim tenDaysAgo As Date
    tenDaysAgo = DateAdd("d", -10, baseDate)
    
    ' 結果の出力（イミディエイトウィンドウ）
    Debug.Print "基準日: " & baseDate
    Debug.Print "1ヶ月後: " & nextMonth
    Debug.Print "3ヶ月後の月末: " & endOfMonth
    Debug.Print "2週間後: " & twoWeeksLater
    Debug.Print "10日前: " & tenDaysAgo
End Sub

上記のコードにおけるポイントは、DateSerial関数との併用です。DateAddで「月」を加算した後に、DateSerialの引数に「0」を指定することで、その月の「前月末」を取得するというテクニックは、実務で非常に多用されるパターンです。

日付操作におけるプロフェッショナルの思考法

VBAで日付を扱う際、初心者が陥りやすい罠がいくつかあります。ベテランエンジニアとして、以下の3点を特に強調しておきます。

1. 型の明示：
日付を扱う変数は必ず「Date型」で宣言してください。Variant型でも動作はしますが、メモリ効率が悪く、予期せぬ型変換によるエラーの原因となります。

2. 境界値テストの徹底：
「1月31日に1ヶ月を加算するとどうなるか」「うるう年の2月29日に1年を加算するとどうなるか」といった境界値は、必ずイミディエイトウィンドウで検証する癖をつけてください。DateAddは非常に優秀ですが、論理的な設計ミスは防げません。

3. 文字列変換の回避：
日付を「yyyy/mm/dd」といった文字列に変換して加工するのは避けましょう。一度文字列にしてしまうと、Format関数などで再変換する手間が発生し、コードが冗長になります。計算はあくまでDate型のまま行い、表示が必要な最終段階でのみFormat関数を使用するというのが、洗練されたコードの鉄則です。

DateAddを活用した業務自動化の応用例：営業日判定

DateAdd関数単体では「土日祝日を考慮した営業日計算」はできませんが、ロジックの核として活用できます。例えば、「指定日から5営業日後を算出する」という関数を作る場合、以下のようなアプローチをとります。

1. DateAddで1日ずつ加算するループを作成。
2. Weekday関数で土日を判定。
3. 祝日リストを別シートに持ち、CountIf関数等で祝日判定。
4. 営業日でない場合はカウンタを進めず、営業日の場合のみカウンタを減らす。

このように、DateAddは「単純な期間加算」だけでなく、より高度なカレンダーロジックを構築するための「基本エンジン」として機能します。

まとめ：VBAにおける日付操作の極意

DateAdd関数は、VBAにおける日付操作の標準であり、かつ最も信頼できるツールです。日付計算を手動で実装しようとするのは、車輪の再発明であるだけでなく、バグを製造する行為に等しいと言えます。

本稿で解説した通り、DateAddを軸にしつつ、DateSerialやWeekday関数といった周辺関数を組み合わせることで、ほとんどの日付関連業務は自動化可能です。

プロフェッショナルなVBAエンジニアを目指すのであれば、まずは「日付＝DateAddで計算できる」という感覚を身体に染み込ませてください。そして、常に「この処理はうるう年や月末の変動に耐えうるか？」という視点を持ち続けること。この意識の差が、堅牢でメンテナンス性の高いシステムを構築できるかどうかの分かれ目となります。

今日からあなたのコードにDateAddを取り入れ、日付計算のストレスから解放されましょう。VBAの世界は、こうした小さな関数の積み重ねによって、驚くほど効率的で美しいツールへと進化していくのです。