[ミリ秒を取得する]

現在時刻を、ミリ秒付きで表示します。

【ソースコード】

[tips0046.vbs]
Option Explicit

Dim dtmNowTime      ' 現在時刻
Dim lngHour         ' 時
Dim lngMinute       ' 分
Dim lngSecond       ' 秒
Dim lngMilliSecond  ' ミリ秒

dtmNowTime = Timer
lngMilliSecond = dtmNowTime - Fix(dtmNowTime)
lngMilliSecond = Right("000" & Fix(lngMilliSecond * 1000), 3)
dtmNowTime = Fix(dtmNowTime)
lngSecond = Right("0" & dtmNowTime Mod 60, 2)
dtmNowTime = dtmNowTime \ 60
lngMinute = Right("0" & dtmNowTime Mod 60, 2)
dtmNowTime = dtmNowTime \ 60
lngHour = Right("0" & dtmNowTime, 2)

WScript.Echo "現在時刻：" & _
    lngHour & ":" & lngMinute & ":" & lngSecond & "." & lngMilliSecond

【実行結果】

C:\> cscript //NoLogo tips0046.vbs
現在時刻：21:30:45.703