Timer 函式

傳回自上午 12:00 (午夜) 後經過的秒數。

語法

Timer

備註

下列範例使用 Timer 函式來決定重複 For...Next 迴圈 N 次所花費的時間：

範例：

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

Dim N, Duration
N = 1000000   ' Number of iterations.
Duration = TimeIt(N)