[年,月,日,時,分,秒を取得する]

年,月,日,時,分,秒の値を個別に取得します。

【ソースコード】
[tips0045.vbs]
Option Explicit

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

WScript.Echo "現在の日時は " & _
    Year(dtmNowDate) & "/" & _
    Month(dtmNowDate) & "/" & _
    Day(dtmNowDate) & " " & _
    Hour(dtmNowDate) & ":" & _
    Minute(dtmNowDate) & ":" & _
    Second(dtmNowDate) & " です。"

WScript.Echo "前0付きでは " & _
    Year(dtmNowDate) & "/" & _
    Right("0" & Month(dtmNowDate), 2) & "/" & _
    Right("0" & Day(dtmNowDate), 2) & " " & _
    Right("0" & Hour(dtmNowDate), 2) & ":" & _
    Right("0" & Minute(dtmNowDate), 2) & ":" & _
    Right("0" & Second(dtmNowDate), 2) & " となります。"

【実行結果】
C:\> cscript //NoLogo tips0045.vbs
現在の日時は 2004/12/3 15:2:8 です。
前0付きでは 2004/12/03 15:02:08 となります。