※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

標準モジュール
'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)