Application.Ontime, дающий неточные результаты

Question

Когда я запускаю код ниже (test1), я получаю переменные результаты, почти всегда около 2,5 секунд - редко это 3 секунды. Я мог понять, что он превышает 3 секунды, если компьютер занят чем-то другим, но менее 3 не имеет смысла. Я пробовал это с xl2003 и xl2010, с аналогичными результатами. Надеюсь, кто-то может объяснить это мне.

Option Explicit 

Dim t As Double 

Sub test1() 
    Debug.Print Now 
    Application.OnTime Now + TimeValue("00:00:03"), "test2", , True 
    ' t = Timer 
End Sub 

Sub test2() 
    Debug.Print Now 
    ' Debug.Print Timer - t 
End Sub 

Answer 1

Now() и Timer кажется, обновляют свои значения асинхронно. В некоторых быстрых тестах я получаю дисперсию в диапазоне от 0 до 1 секунды.

Как вы обнаружили, вы должны придерживаться одного источника времени. В стороне, OnTime можно планировать только с шагом в 1 секунду.