Timer 関数

午前 0:00 以降に経過した秒数を返します。

Timer

解説

次の例では、For...Next ループを N 回繰り返すために必要な時間を、Timer 関数を使って決める例です。

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

必要条件

バージョン 5

参照

Randomize ステートメント