Measuring A Program's Speed

The simplest way to measure the performance of a block of code (or an entire program) is to obtain the elapsed time. This tip shows you how.

'At the top of the form:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

'At the top of the current sub:
Dim z As Long

'Start measuring the time
z = TimeGetTime()

'Debug.Print Mid$("abc", 2, 1)

'Stop measuring the time
z = TimeGetTime() - z

'MsgBox "That took " & z & " ms!"