Timer 関数
Timer
午前 0:00 以降に経過した秒数を返します。
使用例
次の例では、For...Next ループを N 回繰り返すために必要な時間を、Timer 関数を使って決める例です。
Function lngTime(lngNum)
Dim i
Dim lngStart
Dim ingEnd
lngStart = Timer
For i = 1 To lngNum
Next
ingEnd = Timer
lngTime = ingEnd - lngStart
End Function