Timer 函数

返回午夜 12 时以后已经过去的秒数。

Timer

说明

下面的例子使用 Timer 函数来确定 For...Next 循环 N 次所需的时间：

Function TimeIt(N)  Dim StartTime, EndTime  StartTime = Timer  For I = 1 To N  Next  EndTime = Timer  TimeIt = EndTime - StartTimeEnd Function