時間経過計測クラス‐VBA編

いろいろAccessで測定してみたくなったので、まずは測定クラスの作成。

VBA単独はではミリ秒を測れないようなので、API関数を利用。

ClsTimerMM

Option Compare Database
Option Explicit

'============================
' ミリ秒　で経過時間を計測
'============================

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public StartTime As Variant

Public Sub SetStartDate()
StartTime = timeGetTime()
End Sub
Public Function ElapsedTime() As String
ElapsedTime = (timeGetTime() - StartTime) & " ミリ秒"
End Function

そしてオマケで、hh時間nn分ss秒での計測バージョン。

ClsTimer

Option Compare Database
Option Explicit
'============================
' hh時間nn分ss秒　で経過時間を計測
'============================

Private StartDate As Variant
Public Sub SetStartDate()
StartDate = Now
End Sub
Public Function ElapsedTime() As String
ElapsedTime = Format(Now - StartDate, "hh時間nn分ss秒")
End Function