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
Excel VBA倒计时
最新推荐文章于 2024-05-23 22:36:57 发布