概要

DateAdd関数は、Excel VBAで指定した日付に任意の期間（年、月、日、時間、分、秒など）を加算または減算するための関数です。この関数を使用することで、日付計算が簡単に行え、例えばプロジェクトの締め切り日を計算したり、特定のイベントの日付を求めたりすることができます。

構文

DateAdd(間隔, 数値, 日付)

パラメータ

• 間隔

  加算または減算する単位を指定します。以下のような文字列を使用します：

  • "yyyy"：年
  • "q"：四半期
  • "m"：月
  • "y"：日（一年の中の日）
  • "d"：日
  • "w"：平日
  • "ww"：週
  • "h"：時間
  • "n"：分
  • "s"：秒

• 数値

  加算または減算する期間の数を指定します。正の数で加算、負の数で減算します。

• 日付

  基準となる日付を指定します。

戻り値

DateAdd関数は、指定された日付に指定された期間を加算または減算した新しい日付を返します。

説明

DateAdd関数を使うことで、日付の計算を簡単に行うことができます。加算する単位や数値を柔軟に指定できるため、様々な場面での日時処理に活用できます。

• 期間の加算と減算
  数値に正の値を指定すると期間を加算、負の値を指定すると期間を減算します。

• 様々な単位での計算
  年、月、日、時間など様々な単位での加減算が可能です。

使用例

基本的な使用例 - 日付に日数を加算する

Sub AddDaysToDate()
    Dim baseDate As Date
    Dim newDate As Date

    baseDate = #2024/09/23#
    newDate = DateAdd("d", 10, baseDate)

    MsgBox "10日後の日付: " & newDate  ' 結果: 2024/10/03
End Sub

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

Sub GetDateAfter30Days()
    Dim futureDate As Date

    futureDate = DateAdd("d", 30, Date)

    MsgBox "今日から30日後の日付: " & futureDate
End Sub

指定した日付から1ヶ月前の日付を取得する

Sub GetOneMonthAgo()
    Dim pastDate As Date

    pastDate = DateAdd("m", -1, Date)  ' 今日から1ヶ月前の日付を取得

    MsgBox "1ヶ月前の日付: " & pastDate
End Sub

年単位で日付を加算する

Sub AddYearsToDate()
    Dim baseDate As Date
    Dim resultDate As Date
    
    baseDate = #2024/01/01#
    resultDate = DateAdd("yyyy", 3, baseDate)  ' 3年後の日付を計算

    MsgBox "3年後の日付: " & resultDate  ' 結果: 2027/01/01
End Sub

応用例

日付の時間を加算する

DateAdd関数を使って、指定された日付に時間を加算する例です。

Sub AddHoursToTime()
    Dim startTime As Date
    Dim newTime As Date

    startTime = #9:00:00 AM#
    newTime = DateAdd("h", 5, startTime)  ' 5時間後の時刻を取得

    MsgBox "5時間後の時刻: " & Format(newTime, "hh:nn:ss AM/PM")  ' 結果: 2:00:00 PM
End Sub

週単位で日付を加算する

週単位で指定した日付に加算する場合の例です。

Sub AddWeeksToDate()
    Dim baseDate As Date
    Dim futureDate As Date

    baseDate = #2024/09/23#
    futureDate = DateAdd("ww", 2, baseDate)  ' 2週間後の日付を計算

    MsgBox "2週間後の日付: " & futureDate  ' 結果: 2024/10/07
End Sub

分単位で日時を操作する

特定の日時に分単位で加算する例です。

Sub AddMinutesToTime()
    Dim eventTime As Date
    Dim updatedTime As Date

    eventTime = #12:00:00 PM#
    updatedTime = DateAdd("n", 45, eventTime)  ' 45分後の時刻を取得

    MsgBox "45分後の時刻: " & Format(updatedTime, "hh:nn:ss AM/PM")  ' 結果: 12:45:00 PM
End Sub

備考

• DateAdd関数は、日付の操作を効率的に行えるため、時間を扱う処理の多いVBAプログラムでは非常に有用です。

• 引数の「間隔」には英字で指定する必要があるため、誤入力に注意が必要です。

• 負の数値を使用することで、過去の日付を計算できるため、期限管理やデータ分析にも役立ちます。

• 日付と時間が同時に含まれるDate型でも、柔軟に加算・減算が可能です。