ClassTimer

' in clsTimer...

Dim start, finish

Public Sub StopTimer()
finish = GetTickCount()
End Sub

Public Sub StartTimer()
start = GetTickCount()
finish = 0
End Sub

Public Sub DebugTrace(v)
Debug.Print v & " " & Elapsed()
End Sub

Public Property Get Elapsed()
If finish = 0 Then
Elapsed = GetTickCount() - start
Else
Elapsed = finish - start
End If
End Property

.Elapsed restituisce il numero in millisecondi tra
la chiamata a .StartTimer e.StopTimer.
Se .StopTimer non viene chiamato restituisce il numero
di millisecondi trascorsi dalla chiamata .StartTimer

'Assumes:

creare una classe chiamata clsTimer e copiate questo
codice., chiamate nell'ordine

Dim t1 as new clsTimer
t1.StartTimer
Debug.Print "Tempo trascorso = " & t2.Elapsed

'altrimenti

t2.StopTimer
Debug.Print "Totale tempo trascorso = " & t2.Elapsed