Timer関数

Timer 関数は午前0時0分0秒からの経過時間を単精度浮動小数点数型の値で返します。計測精度は約16ミリ秒ですので、この値より細かな精度を必要としない時間計測に使用してください。

Timer関数の使用方法

Timer

【戻り値】 単精度浮動小数点数型 (Single)

Timer関数の使用例

処理時間を計測する例です。

Sub sample_ef03A_01()
    Dim t As Single
    Dim i As Long

    t = Timer   '時間計測開始

    'ループで時間をかせぐ
    For i = 1 To 100000000
    Next i

    '計測精度的にミリ秒以下の数値に意味はないため、丸める。
    Debug.Print "処理時間は " & Round(Timer - t, 2) & " 秒です。"
End Sub

 Round関数 For…Next