経過日数を計算する方法

以下の内容で *.vbs ファイルを作成し、ダブルクリックで実行する。
開始日・終了日を聞かれるので、「2004/2/12」みたいな形式で入力すれば、日数 (両端を含む) が表示される。

a = CDate(InputBox("開始日"))
b = CDate(InputBox("終了日"))
MsgBox a & "〜" & b & " → " & (DateDiff("d", a, b) + 1) & "日"