accesstoolbox/source/modules/Chrono.bas

Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
'******
' Chronomètre (pour tests de performances surtout)
' v 1
'******
Private t0 As Single


Private Sub class_Initialize()
  t0 = Timer
End Sub

Public Sub demarrer()
On Error GoTo err
  t0 = Timer
Exit Sub
err:
MsgBox err.Description
End Sub

Public Function valeur() As Long
On Error GoTo err
  valeur = 1000 * (Timer - t0)
Exit Function
err:
MsgBox err.Description
End Function

Public Sub Afficher()
On Error GoTo err
  Debug.Print 1000 * (Timer - t0) & " ms."
Exit Sub
err:
MsgBox err.Description
End Sub