Timer difference in running the same code

[yxz152830]

Gurus,
for below code, timer takes down 10 records but 2 records are 1 sec lower than the other 8. Is there any reason behind this or this is within the deviation range? Thank you.

Sub pop()
For x = 1 To 10
st = Timer
d = Now + TimeValue("00:00:03")
For Each cell In Range(Cells(18, 1), Cells(18, 10))
Do
Loop Until d <= Now
d = Now + TimeValue("00:00:03")
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.86328​

31.99609​

31.98828​

31.99609​

30.99609​

31.99609​

31.99609​

31.99609​

31.99609​

31.99609​

 

[RoryA]

that is bull **** (apparently censored word), try in an empty sheet

Notwithstanding the fact that this tone is unnecessary and unacceptable, I can't really see what you are taking exception to. The post prior to your clearly states and demonstrates that Now = Now().

 

[BSALV]

sorry, but perhaps i should have said, in a more polite way, that excel works with 15 numbers of precision.
So after multiplying such number with 86400 (seconds/day) the digits after the point such as .999999xxx (6 9's) and .0000000xxx (7 0's) are equal.

In the screenshot of Bebo02199, there are 5 digits before the point + 6 9's + almost 5 digits because of multiplying with 86400 = 15 !
that many digits after the point is a pure optical illuson without meaning.
Round(their value,6) gives the same value.
Better, more appropriate ?