[２つの日付の差分を求める]

指定された２つの日付の期間を計算します。

【ソースコード】

[tips0041.vbs]
Option Explicit

Dim dtmNowDate  ' 現在日付
Dim dtmNextDate ' １ヶ月後の日付
dtmNowDate = Date()
dtmNextDate = DateAdd("m", 1, Date())

WScript.Echo dtmNowDate & "と" & dtmNextDate & "は"
WScript.Echo "　" & DateDiff("m", dtmNowDate, dtmNextDate) & "ヶ月違います。"
WScript.Echo "　" & dtmNextDate - dtmNowDate & "日違います。"

【実行結果】

C:\> cscript //NoLogo tips0041.vbs
2004/12/12と2005/01/12は
　1ヶ月違います。
　31日違います。