Timer 函数

返回自 12:00 AM（午夜）以来过去的秒数。

语法

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)