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

EN

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