[一定期間後（前）の日時を取得する]

一定期間後の日付／時間を取得します。

【ソースコード】

[tips0040.vbs]
Option Explicit

Dim dtmNowDate  ' 現在時刻
dtmNowDate = Now()

WScript.Echo "現在の日時は " & dtmNowDate
WScript.Echo "　１年後は " & DateAdd("yyyy", 1, dtmNowDate)
WScript.Echo "　半期後は " & DateAdd("q", 2, dtmNowDate)
WScript.Echo "　３ヶ月後は " & DateAdd("m", 3, dtmNowDate)
WScript.Echo "　４日後は " & DateAdd("d", 4, dtmNowDate)
WScript.Echo "　５週間後は " & DateAdd("ww", 5, dtmNowDate)
WScript.Echo "　６時間後は " & DateAdd("h", 6, dtmNowDate)
WScript.Echo "　７分後は " & DateAdd("n", 7, dtmNowDate)
WScript.Echo "　８秒後は " & DateAdd("s", 8, dtmNowDate)

【実行結果】

C:\> cscript //NoLogo tips0040.vbs
現在の日時は 2004/12/13 10:32:09
　１年後は 2005/12/13 10:32:09
　半期後は 2005/06/13 10:32:09
　３ヶ月後は 2005/03/13 10:32:09
　４日後は 2004/12/17 10:32:09
　５週間後は 2005/01/17 10:32:09
　６時間後は 2004/12/13 16:32:09
　７分後は 2004/12/13 10:39:09
　８秒後は 2004/12/13 10:32:17