Excel VBA倒计时

Private myTime As Date
Private Const endTime As Date = #11/25/2021 2:00:00 PM#

Sub StartTimer()
    Call TimeOn
End Sub

Sub TimeOn()
    Dim deltaTime As Variant
    Dim days As Long, hours As Long, minutes As Long, seconds As Long
    myTime = Now()
    deltaTime = DateDiff("s", myTime, endTime)
    
    days = Fix(deltaTime / 86400)
    hours = Fix((deltaTime - 86400 * days) / 3600)
    minutes = Fix((deltaTime - days * 86400 - hours * 3600) / 60)
    seconds = deltaTime - days * 86400 - hours * 3600 - minutes * 60
    
    Range("A2") = days
    Range("B2") = hours
    Range("C2") = minutes
    Range("D2") = seconds
    
    Application.OnTime myTime + TimeValue("0:00:01"), "StartTimer"
    
End Sub
Sub KillTimer()
    On Error Resume Next
    Application.OnTime myTime + TimeValue("0:00:01"), "StartTimer", Schedule:=False
End Sub