VBA \ Excel倒数计时器显示错误的小时数

Question

我正在为倒数计时器尝试其他代码。这个倒计时，但我无法从正确的小时：分钟：秒数开始倒计时。

当我单击目标单元格时，它以正确的hhhhhhh：mm：ss格式显示，而当我在编辑栏中单击时，它显示了正确的日期/时间，但实际的小时数却相去甚远计数器文本框。

目标日期为12：01：2021（22824小时），但倒数显示为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

好吧，一时兴起，我在目标单元格中​​输入了天数，现在它是从正确的小时数：分钟数：秒倒数的。