[ACCESS]処理にかかった時間を取得する。

自分用メモ。accessむかむかさんより。

プログラムの処理時間を計る(GetTickCount)
http://sanryu.net/acc/tips/tips278.htm

Private Declare Function GetTickCount Lib "kernel32" () As Long

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

beforetime = GetTickCount

'-----処理-----

aftertime = GetTickCount
MsgBox aftertime - beforetime

アンガー・マネジメント―アメリカ・エグゼクティブの間で爆発的に普及! イライラ、ムカムカを一瞬で変える技

• 作者: 安藤 俊介
• 出版社/メーカー: 大和出版
• 発売日: 2008/09
• メディア: 単行本