プログラムの処理時間を計る(GetTickCount)

　GetTickCountを使用してミリ秒で処理時間が計測できます。

Option Compare Database
Option Explicit

'システムを起動した後の経過時間を、ミリ秒（ms）単位で取得
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub 処理時間計測()

    Dim beforetime  As Long '開始時間
    Dim aftertime   As Long '終了時間
    
    Dim i           As Long
    Dim wk          As Long

    '-----------------------------------
    '開始時間取得
    '-----------------------------------
    beforetime = GetTickCount

    For i = 1 To 1000000
        wk = 100 * 100
    Next

    '-----------------------------------
    '終了時間取得
    '-----------------------------------
    aftertime = GetTickCount

    '-----------------------------------
    '結果出力
    '-----------------------------------
    Debug.Print aftertime - beforetime & "ミリ秒"

End Sub