DateAdd関数

指定された時間間隔が追加された日付を戻します。

構文

DateAdd(interval, number, date)

引数:

  • Interval: 必須。追加する間隔の文字列式。値については「設定」の項を参照してください。
  • Number: 必須。追加する間隔の数値式。数値式は、将来の日付の場合は正、過去の日付の場合は負になります。
  • Date: 必須。間隔が追加される日付を表すバリアントまたはリテラル。

設定: interval引数には次の値を指定できます:

表11-9 Interval引数の値

設定 説明
yyyy 年
q 四半期
m Month
d Day
w 曜日
h Hour
n Minute
s Second

サポートされている日付フォーマット:

  • MM/DD/YYYY
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

サポートされている時間フォーマット:

hh:mm:ss

備考

DateAdd関数を使用すると、指定した時間間隔を日付に対して加算または減算できます。たとえば、DateAddを使用して、今日から10日後の日付や現在から45分後の時間を計算できます。日付に日数を追加するには、Day ("d")またはWeekday ("w")を使用できます。

出力日付フォーマットは、システムの短い日付フォーマットに基づきます。

次の例では、DateAdd関数の使用方法を示します:

例1:

Dim MyDate, NewDate 
MyDate = "21/01/2025" 
NewDate = DateAdd("yyyy", 5, MyDate) 
'Output: 21-Jan-30

例2:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("q", 1, MyDate)
'Output: 21-Apr-25

例3:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("m", 2, MyDate)
'Output: 21-Mar-25

例4:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("d", 10, MyDate)
'Output: 31-Jan-25

例5:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("w", 4, MyDate)
'Output: 25-Jan-25

例6:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("h", 5, MyDate)
'Output: 21-Jan-25 7:40:00 PM

例7:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("n", 5, MyDate)
'Output: 21-Jan-25 2:45:00 PM

例8:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("s", 5, MyDate)
'Output: 21-Jan-25 2:40:05 PM