Comments on: Timing Macros

By: Jamie Collins

Jamie Collins — Thu, 01 Jul 2004 14:03:00 +0000

"MSKB 172338 has a good voerview of Operating System timers"

I discovered wrong! According to the article, GetTickCount and TimeGetTime are the same resolution (10 milliseconds). So I choose GetTickCount because it has a nicer... I mean, more meaningful name.

Jamie.

By: Rob van Gelder

Rob van Gelder — Wed, 30 Jun 2004 08:04:00 +0000

MSKB 172338 has a good voerview of Operating System timers

http://support.microsoft.com/default.aspx?scid=kb;en-us;172338

By: Jamie Collins

Jamie Collins — Tue, 29 Jun 2004 18:08:00 +0000

I've discovered TimeGetTime has a 1 millisecond resolution, whereas GetTickCount is 'only' approx 10 ms.

Jamie.

By: ross

ross — Tue, 29 Jun 2004 11:38:00 +0000

But which is the best gents???

By: Jamie Collins

Jamie Collins — Tue, 29 Jun 2004 11:31:00 +0000

I use GetTickCount, the simplest of Win32 APIs and probably the first one I knowingly used. It returns milliseconds elapsed since Windows was started:

Option Explicit

Private Declare Function GetTickCount _
Lib "kernel32? () As Long

Sub test1()

Dim lngStart As Long
Dim lngDuration As Long

lngStart = GetTickCount

lngDuration = GetTickCount - lngStart

MsgBox Format(lngDuration / 24 / 60 / 60 / 1000, _
"hh:nn:ss")

End Sub

Jamie.

By: Rob van Gelder

Rob van Gelder — Tue, 29 Jun 2004 09:42:00 +0000

I use the Multimedia Timer for timing - Somewhere I read this a high resolution timer.

Declare Function timeGetTime Lib "winmm.dll" () As Long

Dim lngStart As Long

Sub Start()
lngStart = timeGetTime()
End Sub

Function Finish()
Finish = timeGetTime() - lngStart
End Function

Sub test()
Dim i As Long, lngLastRow As Long, lngTemp As Long, rng As Range

With ActiveSheet

'set up test data
For i = 1 To 10000: .Cells(i, 1).Value = i: Next

'do the 3 speed tests
Start
For i = 1 To 10000
lngTemp = Range("A" & i).Value
Next
Debug.Print "Test 1: " & Finish

Start
For i = 1 To 10000
lngTemp = .Cells(i, 1).Value
Next
Debug.Print "Test 2: " & Finish

Start
Set rng = .Range("A1?)
For i = 0 To 10000 - 1
lngTemp = rng.Offset(i, 0).Value
Next
Debug.Print "Test 3: " & Finish

End With

End Sub