「処理時間を計測する」の編集履歴（バックアップ）一覧はこちら

「処理時間を計測する」(2013/07/14 (日) 01:49:41) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

標準モジュール
#blockquote(){
&color(black,aqua){'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)&color(black,aqua){'フォームモジュールから受け取り}
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 様より拝借

標準モジュール
#blockquote(){&color(black,aqua){'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)&color(black,aqua){'フォームモジュールから受け取り}
Debug.Print Format(GetTickCount() - BufferTime, "000000") & " ms" & " -> " & strSQL
End Sub
}

フォームモジュール
#blockquote(){Call StopWatch_Start
Call StopWatch_Finish(strSQL)
}

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