Question

vbs中如何取到毫秒级的时间?

请给出能直接使用的代码,谢谢!

Answer 1

方法一，调用javascript获取毫秒时间。

Set sc = CreateObject("ScriptControl")
sc.Language = "javascript"
t = sc.eval("new Date().getTime()")
MsgBox DateAdd("s", Fix(t / 1000), "1970-1-1 8:00") & "." & Right(t, 3)

方法二，用WMI方法，缺点是速度慢，获取一次时间大约需要15毫秒。

Set wmi = GetObject("winmgmts:\\.\root\cimv2")
For Each e In wmi.ExecQuery("select LocalDateTime from Win32_OperatingSystem")
  t = e.LocalDateTime
  MsgBox Left(t, 4) & "-" & Mid(t, 5, 2) & "-" & Mid(t, 7, 2) & " " _
      & Mid(t, 9, 2) & ":" & Mid(t, 11, 2) & ":" & Mid(t, 13, 2) _
      & Mid(t, 15, 4)
Next

如果只计算时间间隔，用两次Timer函数，精确到八分之一毫秒。

t0=Timer
MsgBox "暂停"
MsgBox "暂停了" & Timer-t0 & "毫秒"

Answer 2

msgbox Now & "." & Split(Timer, ".")(1)