VBA-DateAdd関数
指定された時間間隔が追加された日付を返す関数。
構文
パラメータ説明
- 間隔-必須パラメーター。 次の値を取ることができます。
- d-年の日
- m-年の月
- y-年
- yyyy-年
- w-平日
- ww-週
- q-四半期
- 時間-時間
- m-分
- s-秒
- Number -必須パラメーター。 正と負の両方のパラメーターを使用できます。
- 日付-必須パラメーター。 間隔が追加される日付を表すバリアントまたはリテラル。
例
Private Sub Constant_demo_Click()
' Positive Interal
date1 = 27-Jun-1894
msgbox("Line 1 : " &DateAdd("yyyy",1,date1))
msgbox("Line 2 : " &DateAdd("q",1,date1))
msgbox("Line 3 : " &DateAdd("m",1,date1))
msgbox("Line 4 : " &DateAdd("y",1,date1))
msgbox("Line 5 : " &DateAdd("d",1,date1))
msgbox("Line 6 : " &DateAdd("w",1,date1))
msgbox("Line 7 : " &DateAdd("ww",1,date1))
msgbox("Line 8 : " &DateAdd("h",1,"01-Jan-2013 12:00:00"))
msgbox("Line 9 : " &DateAdd("n",1,"01-Jan-2013 12:00:00"))
msgbox("Line 10 : "&DateAdd("s",1,"01-Jan-2013 12:00:00"))
' Negative Interval
msgbox("Line 11 : " &DateAdd("yyyy",-1,date1))
msgbox("Line 12 : " &DateAdd("q",-1,date1))
msgbox("Line 13 : " &DateAdd("m",-1,date1))
msgbox("Line 14 : " &DateAdd("y",-1,date1))
msgbox("Line 15 : " &DateAdd("d",-1,date1))
msgbox("Line 16 : " &DateAdd("w",-1,date1))
msgbox("Line 17 : " &DateAdd("ww",-1,date1))
msgbox("Line 18 : " &DateAdd("h",-1,"01-Jan-2013 12:00:00"))
msgbox("Line 19 : " &DateAdd("n",-1,"01-Jan-2013 12:00:00"))
msgbox("Line 20 : " &DateAdd("s",-1,"01-Jan-2013 12:00:00"))
End Sub
上記の関数を実行すると、次の出力が生成されます。