Timer関数

12:00 AM(午前0時)から経過した秒数を戻します。

構文

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)