高考倒计时、中考倒计时 PPT小工具制作

注意：在Powerpoint中 pptx文件无法保存VBA宏编程内容，

Microsoft PowerPoint 启用宏的演示文稿后缀为 .pptm 。

Microsoft PowerPoint 启用宏的幻灯片放映 .ppsm

 

以下代码在Windows10 64位 Powerpoint 2016下运行通过：

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public mTimer  As Long

 

'计时函数，每一秒钟运行一次

Sub timer()

  ss = DateDiff("s", Now, "2023-6-7 09:00:00")

  dd = ss \ 86400

  hh = (ss Mod 86400) \ 3600

  mm = (ss Mod 3600) \ 60

  ss = ss Mod 60

  Slide1.Label1.Caption = dd & "天 " & hh & "时 " & mm & "分 " & ss & "秒"

End Sub

 

'1s调用一次timer函数计算间隔时间

Sub start()

    mTimer = SetTimer(0, 0, 1000, AddressOf timer)

End Sub

 

'PPT开始展示时，调用start函数，开始显示计时

Sub OnSlideShowPageChange()

    Call start

End Sub

 

'PPT终止演示时，结束计时

Sub OnSlideShowTerminate()

    mTimer = KillTimer(0, mTimer)

End Sub