Timer too accurate

[yxz152830]

Gurus,
I was trying out different time functions. I wanted to record the run time of a code. My concern is that the result is too accurate? or say fake. doesnt runtime of the subroutine itself also cost a tiny bit of time and make records something like 30.0xxx? Please check below code and result

Sub pop2()
For x = 1 To 10
st = Timer
d = st + 3
For Each cell In Range(Cells(18, 1), Cells(18, 10))
Do
Loop Until d <= Timer
d = Timer + 3
cell.Interior.ColorIndex = 3
Next cell
st = Timer - st
Range("o100").End(xlUp).Offset(1, 0) = st
Range(Cells(18, 1), Cells(18, 10)).Clear
Next x
End Sub

timer

30.000​

30.000​

30.000​

30.000​

30.000​

30.000​

30.000​

30.000​

30.000​

30.000​

 

[Dermot]

You are doing very little work (changing colour of 10 cells) so of course the time taken is tiny.
There are more precise timers using the Windows API, but a much simpler approach is to make your loops much bigger, eg change the colour of 10,000 cells instead of 10.
Then you can take that time and divide by 1000 to get the average for 10 cells pretty precisely
If that's not accurate enough, recolour 100,000 cells and divide the time by 10,000....

 

[Fluff]

STOP posting the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

Thread closed.