活动开始倒计时

> 这是用于倒计时的代码，可以提前设置好目标时间，放映后会自动计算剩余时间，精确到秒，可以用来做活动或高考的倒计时。

**使用方法：**

打开 PPT 后新建一页带有`标题占位符`的页面，然后在`“切换”`选项卡中设置自动换片时间为 1 秒。

接着在`“幻灯片放映”`选项卡中，点击`设置幻灯片放映`功能，在弹出的窗口中勾选`循环放映`。

设置完成后打开代码编辑器，插入如下代码并运行，放映时就会根据设置的目标时间自动倒计时。

**代码如下：**

```vb
Sub 活动倒计时()
    Dim diff As Long
    Dim ww As Long
    Dim dd As Long
    Dim mm As Long
    Dim hh As Long
    Dim ss As Long
    diff = DateDiff("s", Now, "6/1/2022 20:00")
    '在括号中设置目标日期与时间'
    ww = Int(diff \ 604800)
    overflow = diff Mod 604800
    dd = Int(overflow / 86400)
    overflow = overflow Mod 86400
    hh = Int(overflow / 3600)
    overflow = overflow Mod 3600
    mm = Int(overflow / 60)
    ss = overflow Mod 60
    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = Format(ww, "00") & " 星期 " & Format(dd, "00") & " 天 " & Format(hh, "00") & " 小时 " & Format(mm, "00") & " 分 " & Format(ss, "00") & " 秒 "
End Sub
Sub onSlideShowPageChange(SW As SlideShowWindow)
    Call 活动倒计时
End Sub
```

**显示天数的代码：**

```vb
Sub 活动倒计时()
    Dim diff As Long
    Dim dd As Long
    Dim mm As Long
    Dim hh As Long
    Dim ss As Long
    diff = DateDiff("s", Now, "9/20/2023 20:00")
    '在括号中设置目标日期与时间'
    dd = Int(diff \ 86400)
    overflow = diff Mod 86400
    hh = Int(overflow / 3600)
    overflow = overflow Mod 3600
    mm = Int(overflow / 60)
    ss = overflow Mod 60
    ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = Format(dd, "00") & " 天 " & Format(hh, "00") & " 小时 " & Format(mm, "00") & " 分 " & Format(ss, "00") & " 秒 "
End Sub
Sub onSlideShowPageChange(SW As SlideShowWindow)
    Call 活动倒计时
End Sub
```