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