[ExcelVBA] DateAdd関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
DateAdd(interval, number, date)

■説明
指定された時間間隔を加算した日付を返す
第一引数：時間間隔を表す文字列を指定

設定値	内容	設定値	内容
yyyy	年	w	週日
q	四半期	ww	週
m	月	h	時
y	年間通算日	n	分
d	日	s	秒

第二引数：加算する整数値を指定
第三引数：日付を指定

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Debug.Print DateAdd("yyyy", 1, "2009/7/1") '2010/07/01[1年後]  
5.     Debug.Print DateAdd("q", 1, "2009/7/1")    '2009/10/01[1四半期(3ヶ月)後]  
6.     Debug.Print DateAdd("m", 1, "2009/7/1")    '2009/08/01[1ヶ月後]  
7.     Debug.Print DateAdd("d", 1, "2009/7/1")    '2009/07/02[1日後]  
8.     Debug.Print DateAdd("ww", 1, "2009/7/1")   '2009/07/08[1週間後]  
9.     Debug.Print DateAdd("h", 1, "2009/7/1")    '2009/07/01 1:00:00[1時間後]  
10.     Debug.Print DateAdd("n", 1, "2009/7/1")    '2009/07/01 0:01:00[1分後]  
11.     Debug.Print DateAdd("s", 1, "2009/7/1")    '2009/07/01 0:00:01[1秒後]  
12. End Sub  

Option Explicit

Sub SampleCode()
    Debug.Print DateAdd("yyyy", 1, "2009/7/1") '2010/07/01[1年後]
    Debug.Print DateAdd("q", 1, "2009/7/1")    '2009/10/01[1四半期(3ヶ月)後]
    Debug.Print DateAdd("m", 1, "2009/7/1")    '2009/08/01[1ヶ月後]
    Debug.Print DateAdd("d", 1, "2009/7/1")    '2009/07/02[1日後]
    Debug.Print DateAdd("ww", 1, "2009/7/1")   '2009/07/08[1週間後]
    Debug.Print DateAdd("h", 1, "2009/7/1")    '2009/07/01 1:00:00[1時間後]
    Debug.Print DateAdd("n", 1, "2009/7/1")    '2009/07/01 0:01:00[1分後]
    Debug.Print DateAdd("s", 1, "2009/7/1")    '2009/07/01 0:00:01[1秒後]
End Sub

■関連
DateDiff関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧