今天碰到這樣一個需求：在某個大屏上顯示距離過去的某個時間點已經經過了**天**小時**分**秒，類似這樣的需求還有比如：離某個重大活動還有**天**小時**分**秒。

對于程序員來說，第一反應是寫個小軟件全屏顯示，但實際上PPT+VBA做起來也很簡單，下面簡單介紹一下步驟：

1、新建一個PPT文件，點擊PPT軟件的菜單“文件”——》“選項”，彈出的窗口左側列表選擇“自定義功能區”，右邊在“自定義功能區”下方的“主選項卡”中勾選“開發工具”并確定：

?

2、回到PPT編輯，在PPT第一頁上拖一個普通的文本框（跟平時編輯PPT輸入文字一樣），隨意輸入一段標題：

3、再點擊“開發工具”選項卡，點擊“控件”面板中的“標簽控件”，在頁面中拖1個用于顯示計時的標簽框：

4、在“開發工具”選項卡中找到“代碼”面板，點擊其中的Visual Basic，打開VBA編輯窗口，選中“VBAProject”，右鍵單擊選擇“插入”——》“模塊”，然后粘貼如下一段代碼

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", "2020-6-1 10:00:00", Now)dd = ss \ 86400hh = (ss Mod 86400) \ 3600mm = (ss Mod 3600) \ 60ss = ss Mod 60Slide1.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開始播放時，啟動定時器，每隔一秒運行一次timer函數，計算當前時間與2020/6/1 10:00:00之間經過了多少時間，這個起點時間是可以自己修改的

代碼保存后，開始播放PPT，即可看到如下效果：

注意，PPT運行時可能會提示VBA禁用，點擊允許即可。

總結

以上是生活随笔為你收集整理的PPT+VBA实现计时（倒计时）展示的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。