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 
	          

このページの先頭へ