Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Sub Timer()
ss = DateDiff("s", Now, "2022-1-1 00:00:00")
dd = ss \ 86400
hh = (ss Mod 86400) \ 3600
mm = (ss Mod 3600) \ 60
ss = ss Mod 60
ActivePresentation.Slides(17).Shapes(5).TextFrame.TextRange.Text = "距2021年决算还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
End Sub
Sub Start()
ActivePresentation.SlideShowSettings.Run
SetTimer 0, 0, 1000, AddressOf Timer
End Sub
Xian'ser 博客交流QQ:1550356869
老薛主机优惠码【xianser】15%,可开香港/美国等机房,【点击抢购
Last modification:April 6th, 2022 at 09:53 am
If you think my article is useful to you, please feel free to appreciate