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

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

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

ClsTimerMM

view plainprint?

1. Option Compare Database  
2. Option Explicit  
3.   
4. '============================  
5. ' ミリ秒　で経過時間を計測  
6. '============================  
7.   
8. Private Declare Function timeGetTime Lib "winmm.dll" () As Long  
9. Public StartTime As Variant  
10.   
11. Public Sub SetStartDate()  
12. StartTime = timeGetTime()  
13. End Sub  
14. Public Function ElapsedTime() As String  
15. ElapsedTime = (timeGetTime() - StartTime) & " ミリ秒"  
16. End Function  

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

view plainprint?

1. Option Compare Database  
2. Option Explicit  
3. '============================  
4. ' hh時間nn分ss秒　で経過時間を計測  
5. '============================  
6.   
7. Private StartDate As Variant  
8. Public Sub SetStartDate()  
9. StartDate = Now  
10. End Sub  
11. Public Function ElapsedTime() As String  
12. ElapsedTime = Format(Now - StartDate, "hh時間nn分ss秒")  
13. End Function  

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