VBAでのタイマー関数の使用方法

例1.40 タイマー関数

I. タイトル

　　あなたは、Timer関数を使って、このコードが実行されるのにかかる時間を計算するコードを書くように要求されています。

II. コード

Sub Example_1_040()
  Dim t, i&, a
  t = Timer
  For i = 1 To 1000000
    a = a + i
  Next i
  MsgBox Timer - t & "seconds" 'Return 0.046875 seconds
End Sub

III. コードの詳細

1. サブ例_1_040(): マクロの開始文です。マクロ名はExample_1_040です。
2, Dim t, i&, a : 変数 t, a は可変変数、i は長整数変数と宣言します。
3. t = Timer : システムの時刻を変数 t に代入する。
4. For i = 1 To 1000000 : 1から1000000までループします。
5. a = a + i : a + i の値を変数 a に代入する。実際には累積処理である。
6. MsgBox Timer - t & "seconds" : メッセージボックスを使って、現在の時刻から先に設定した時刻を引いて、コード全体を実行するのにかかった時間を表示します。

タイマ機能

真夜中から経過した秒数を表すSingleを返します。

タイマ
説明
Microsoft Windowsでは、Timer関数は秒の小数部分を返します。