Таймер обратного отсчета VBA \ Excel показывает неправильное количество часов

Question

Я пытаюсь использовать другой код для таймера обратного отсчета.Этот выполняет обратный отсчет, но я не могу получить обратный отсчет от правильного количества часов: минут: секунд.

, когда я нажимаю на целевую ячейку, она отображается в правильном формате hhhhhhh: mm: ssи когда я щелкаю в панели редактирования, она показывает правильную дату \ время, но количество часов в текстовом поле фактического счетчика истекло.

Целевая дата 12: 01: 2021 (22 824 часа) но отображается обратный отсчет 1068743: 32: 09 часов: минут: секунд.

Я попробовал серийный номер Excel (41244), но он ничего не изменил.

Есть идеи, почему яя не получаю правильное значение?

Я предполагаю, что это в выражении "Dim gcount As Date", но я не уверен.

Спасибо!

Dim gCount As Date
'Update 20211201' 

Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub

Sub ResetTime()
   Dim xRng As Range
   Set xRng = Application.ActiveSheet.Range("C1")
   xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
   If xRng.Value <= 0 Then
      MsgBox "Countdown complete."
      Exit Sub
   End If
   Call Timer
End Sub

Answer 1

Что ж, по какой-то причине я ввел количество дней в целевой ячейке, и теперь оно отсчитывает от правильного количества часов: минут: секунд.