処理時間を計測する - DB DEV!!

標準モジュール

'GetTickCountの定義
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private BufferTime As Long

Public Sub StopWatch_Start()
BufferTime = GetTickCount()
End Sub

Public Sub StopWatch_Finish(strSQL)'フォームモジュールから受け取り
Debug.Print Format(GetTickCount() - BufferTime, "000000") & " ms" & " -> " & strSQL
End Sub

フォームモジュール

Call StopWatch_Start
Call StopWatch_Finish(strSQL)

http://www.excellenceweb.net/vba/debug/stopwatch.html 様より拝借