胜芳新闻,胜芳资讯

您当前的位置:胜芳人才网 >> 胜芳资讯 >> 教育培训 >> PPT动态倒计时VBA代码分享(许老师办公)
PPT动态倒计时VBA代码分享(许老师办公)
2022-07-08|资讯来源: 胜芳人才网|查看: 3228

微信截图_20220708110353.png

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-2-1 00: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


  • 温馨提示:以上PPT动态倒计时VBA代码分享(许老师办公)的资讯来自胜芳人才网(胜芳地区找工作,发布招聘信息的胜芳人才网招聘网站),每天更新胜芳最新招聘信息。本内容地址:http://www.sfrcw.cn/article/articledetail-430.html转载请注明
最新资讯
微信分享
胜芳保安招聘胜芳兼职招聘招聘胜芳司机招聘胜芳会计招聘胜芳外贸业务招聘胜芳销售招聘胜芳设计招聘

关注微信公众号

访问手机版本