VBScript Tips (Tips0046)

[ミリ秒を取得する] 現在時刻を、ミリ秒付きで表示します。 【ソースコード】 [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

[takuwz]

“tips0046.vbs”