用于VBScript性能测量的细粒度计时器

Question

我在VBScript中做了一些性能测量.我想测量算法的执行速度

t1 = Now()  
doAlotOfWork ()  
t2 = Now()  
MsgBox "Operation took " & DateDiff ("s", t1, t2)  & " seconds."

这给了我几秒钟的时间.如果一个算法导致1秒执行时间而另一个算法导致2秒钟,这几乎不会给我任何有用的信息.我需要将问题大小炸成一段需要一分钟才能执行的东西.

有没有人知道在VBScript中进行这些测量的方法,但随后更精细.例如,引入毫秒的东西.

我觉得WMI必须有一个解决方案.

Answer 1

您可以使用VBScript Timer函数来获取经过的时间(以毫秒为单位):

Timer函数返回自上午12:00起的秒数和毫秒数.