Option Compare Database
Option Explicit

'+++++++++++++++++++++++++++++++++++++++++
'プログラムの処理時間を計る
'+++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

    Dim sngStart    As Single
    Dim sngEnd      As Single

    Dim i           As Long
    
    '※Timerは午前0時から経過した秒数を返す
    
    '開始時間
    sngStart = Timer
    
    For i = 1 To 10000
        Debug.Print i
    Next i

    '終了時間
    sngEnd = Timer

    '終了時間から開始時間を引く
    If sngEnd > sngStart Then
        Debug.Print "結果：" & sngEnd - sngStart & "秒"
    Else
        Debug.Print "結果：" & (sngEnd + 86400) - sngStart & "秒"
    End If
    
End Sub