倒计时，距离活动还有0天0时0分0秒

Bertha 。 2022-11-19 04:11 244阅读 0赞

**目录**

一、纯ppt实现倒计时

（一）PPT动画10秒倒计时

（二）PPT插入10秒视频倒计时

（三）PPT编程倒计时天时分秒

二、ppt+倒计时软件

（一）10秒倒计时

（二）倒计时软件

三、ppt、倒计时网页

四、最终实现效果

五、附件

--------------------

***起因：****公司半年度冲刺大会有一个倒计时环节（效果为：先10秒倒计时，之后出现距离冲刺竞赛结束还有85天7时25分45秒）。起先想在ppt中实现，后来发现没有“专业人才”能做，后来想用网页实现倒计时，接着ppt超链接跳转。领导觉得跳转打开速度慢且不能打开就是全屏，最后直接分成两块ppt和网页分开播放，主要过程如下：*

# 一、纯ppt实现倒计时 #

方案一：PPT动画倒计时10秒+PPT编程倒计时天时分秒。

方案二：PPT插入倒计时10秒视频+PPT编程倒计时天时分秒。

拆开来说就是三个部分的实现：动画10秒倒计时、10秒视频倒计时、编程倒计时天时分秒。

## （一）PPT动画10秒倒计时 ##

可参考这篇文章，自公众号“利兄日志”引用：

[炸裂的倒计时动画，用PPT到底该如何实现？][PPT]

我只能说是我想要的效果，并且讲的很细致，主要就是数字进入和消失动画效果的排序，掌握这个好像就掌握了很多动画效果，我觉得很有用。

我实现的效果如下：

![20210415145833749.gif][]

## （二）PPT插入10秒视频倒计时 ##

视频是在B站下载的，其他途径我没试也懒得试。

注意：

1.下载无水印的。

2.B站的视频手机端存储位置为  本地存储/Android/data/ tv.danmaku.bili/ download。并且是音视频分开的，想要合并这里引用一个工具，[超级详细，如何把B站缓存m4s文件转换成mp4格式][B_m4s_mp4]，作者是“[热心市民小张123][123]”。

3.注意缓存的清晰度。

剪辑工具用的"必剪"。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2VsaWNlXw_size_16_color_FFFFFF_t_70][]

## （三）PPT编程倒计时天时分秒 ##

说实话我对ppt编程是一窍不通的，也弄不清宏和vba和vb之前到底有啥区别和联系，总之百度很强大，同事很乐于助人。

首先，借鉴的是 [怎么制作倒数100天的倒数计时ppt？][100_ppt]这里主要是让我明白了可能要插入哪些控件，以及代码模块的语法结构。

接着，百度到的代码是:

Private Sub TextBox1_Change()
    Call Label1_Click
    End Sub
    
    Private Sub Label1_Click()
    Dim TargetDate As Date '目标时间
    Dim DeltT As Double '据目标时间的差值
    Dim Days As Double '据目标时间天数
    Dim Hours As Double '据目标时间小时数
    Dim Minutes As Double '据目标时间分钟数
    Dim Seconds As Double '据目标时间秒数
    TargetDate = #7/1/2021# '假设目标时间2010国庆
    DeltT = TargetDate - Now '获取当前时间与设定时间的时间差，为double类型
    Days = Fix(DeltT) '获取天数
    Hours = Fix(DeltT * 24 - Days * 24) '获取小时数
    Minutes = Fix(DeltT * 24 * 60 - Days * 24 * 60 - Hours * 60) '获取分钟数
    Seconds = Fix(DeltT * 24 * 60 * 60 - Days * 24 * 60 * 60 - Hours * 60 * 60 - Minutes * 60) '获取秒数
    Label1.Caption = "距离" & TargetDate & "倒计时" & Days & "天" & Hours & "小时" & Minutes & "分钟" & Seconds & "秒"
    End Sub

可以实现效果，但是不会自动刷新时间，必须单击一下才变一次。同事帮改了之后，代码是这样的，这里需要插入控件，是一个按钮（具体怎么插入请自行百度ppt如何插入按钮控件）

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
    
    Private Sub CommandButton1_Click()
    Do
    delay (1)
    Loop Until (6 < 5)
    End Sub
    
    
    
    Private Sub Label1_Click()
    Dim TargetDate As Date '目标时间
    Dim DeltT As Double '据目标时间的差值
    Dim Days As Double '据目标时间天数
    Dim Hours As Double '据目标时间小时数
    Dim Minutes As Double '据目标时间分钟数
    Dim Seconds As Double '据目标时间秒数
    TargetDate = #7/1/2021# '假设目标时间2010国庆
    DeltT = TargetDate - Now '获取当前时间与设定时间的时间差，为double类型
    Days = Fix(DeltT) '获取天数
    Hours = Fix(DeltT * 24 - Days * 24) '获取小时数
    Minutes = Fix(DeltT * 24 * 60 - Days * 24 * 60 - Hours * 60) '获取分钟数
    Seconds = Fix(DeltT * 24 * 60 * 60 - Days * 24 * 60 * 60 - Hours * 60 * 60 - Minutes * 60) '获取秒数
    Label1.Caption = "距离" & TargetDate & "倒计时" & Days & "天" & Hours & "小时" & Minutes & "分钟" & Seconds & "秒"
    End Sub
    
    
    Sub delay(T As Single)
    Dim time1 As Single
    time1 = Timer
    Do
    DoEvents
    Loop While Timer - time1 < T
    Label1_Click
    End Sub

当然了我也不知道哪里出了问题，总之秒在变化时总是或间隔2秒或间隔1秒，间歇性抽风，所以这个方案被否了（关键是界面还丑）。实现效果如下：

![20210415150336401.gif][]

当时百度不知道为啥，可能搜索方式有问题，我真的没有搜到ppt实现倒计时，今天我换了问法“vba实现倒计时”，竟然搜到了一大堆，列几个我觉得有用的经验分享。（不过我没有测试）  
1.10秒倒计时的实现（非动画）  
[http://www.accessoft.com/article-show.asp?id=5493][http_www.accessoft.com_article-show.asp_id_5493]  
[http://www.accessoft.com/article-show.asp?id=6587][http_www.accessoft.com_article-show.asp_id_6587]  
2.PPT+VBA实现计时（倒计时）展示  
[https://blog.csdn.net/hanjiangying/article/details/111080229][https_blog.csdn.net_hanjiangying_article_details_111080229]

3.倒计时按钮\_有效利用VBA中OnTime方法实现倒计时设计  
[https://blog.csdn.net/weixin\_33549415/article/details/112607853][https_blog.csdn.net_weixin_33549415_article_details_112607853]

这就是命运呐！但是还是觉得很不错，至少经历了一番明白了vba还能实现这个。

# 二、ppt+倒计时软件 #

方案：ppt实现10秒倒计时+倒计时软件

此方案分两部分，即 10秒倒计时、倒计时软件。

## （一）10秒倒计时 ##

ppt动画 or ppt的vba编程 or 插入视频都OK。可参考上文。

## （二）倒计时软件 ##

这里引用一篇知乎：

[有没有一款合适的倒计时软件？][Link 1]

百度搜索“倒计时桌面软件”可能有一大堆。

本来是想在PPT中点击某个按钮，然后触发运行程序，直接让这个软件跳出来，但是，但是结果不尽如人意 ，首先ppt全屏演示者模式播放时，不能确定软件显示位置，其次领导不喜欢这种方式，变数太多，还不庄重，所以给否了。（如何在ppt中触发exe运行程序请自行百度）

# 三、ppt、倒计时网页 #

**方案：ppt和倒计时网页分开 播放，之前是用一台电脑，一个屏幕，在ppt里播放倒计时。**

**现在用两个屏幕，一个屏幕只放ppt，另一个用投影仪只放倒计时，还是用一台电脑实现的。**

**所以说其实我是懵逼的，具体怎么分屏的我还没搞清楚。**

事实上我本来想的是，本地做一个倒计时html文件，然后在ppt里实现网页的加载，网上说是可以的，可以参考：[如何将html格式动态图表网页嵌入ppt中][html_ppt] ，Naruto Inspire 的博客-CSDN博客[。][Link 2]

问题是我没有成功，主要背景加载不出来（强调一下，我是用视频做动态背景）。

所以还是把网页从PPT中分离出来了。并且，连带着10秒倒计时也放入网页里，不放在PPT里实现了。

此方案分 启动倒计时、10秒倒计时、倒计时天时分秒三个阶段，使用网页跳转，需要3个html文件。

***这里不介绍网页倒计时是如何实现的了，请大家自行百度”html倒计时模板“，应该大同小异，找一个容易改时间的即可。***

***我本次方案的倒计时截止时间是2021年7月1日00点00分00秒。***

这里把修改html主要的参考文章列出来：

[非常详细图文JDK和Tomcat安装和配置的图文教程][JDK_Tomcat]  
  
[tomcat只部署一个index.html文件详解][tomcat_index.html]  
  
[Html控制视频播放][Html]  
  
[设置视频水平垂直居中显示在页面上][Link 3]  
  
[html：如何让文字位于页面的右下角][html]  
  
[视频html代码自动播放怎么改][html 1]  
  
[html插入视频embed自动播放的参数是哪个][html_embed]  
  
[HTML5网页自动播放的背景音乐标签调用代码][HTML5]

[html视频播放完后跳转][html 2]

这部分是转载吧，这种引用形式，希望不要喷我，如果大家不满意，那我就删掉，百度也很容易。

# 四、最终实现效果 #

目前10秒倒计时可以尝试在360或IE等浏览器上展示，若是没有展示出来可以换一个浏览器试试，没有考虑兼容性。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2VsaWNlXw_size_16_color_FFFFFF_t_70 1][]

![20210415153338945.gif][]

# 五、附件 #

实在没法子了，我把文件共享出来了，只需要调整时间和CSS样式即可。02文件可以单独使用。当然了，大神就不要嘲笑在下了，本次记录到此结束。

[https://wwa.lanzous.com/i4Nivo2takf][https_wwa.lanzous.com_i4Nivo2takf]

[PPT]: https://mp.weixin.qq.com/s/Q_FaKPOQpieZpFowL5b_ZQ
[20210415145833749.gif]: /images/20221022/9e21c0d736144b5892ad03237124a71e.png
[B_m4s_mp4]: http://baijiahao.baidu.com/s?id=1670735964861659046&wfr=spider&for=pc
[123]: https://author.baidu.com/home?from=bjh_article&app_id=1670733502074938
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2VsaWNlXw_size_16_color_FFFFFF_t_70]: /images/20221022/a56838a1626e4e4588a321a35b753bbf.png
[100_ppt]: https://www.zhihu.com/question/39625810?sort=created
[20210415150336401.gif]: /images/20221022/5853599d360746c3a0f7443189325a80.png
[http_www.accessoft.com_article-show.asp_id_5493]: http://www.accessoft.com/article-show.asp?id=5493
[http_www.accessoft.com_article-show.asp_id_6587]: http://www.accessoft.com/article-show.asp?id=6587
[https_blog.csdn.net_hanjiangying_article_details_111080229]: https://blog.csdn.net/hanjiangying/article/details/111080229
[https_blog.csdn.net_weixin_33549415_article_details_112607853]: https://blog.csdn.net/weixin_33549415/article/details/112607853
[Link 1]: https://www.zhihu.com/question/54218801
[html_ppt]: https://blog.csdn.net/NarutoInspire/article/details/100975907
[Link 2]: https://blog.csdn.net/NarutoInspire/article/details/100975907%E3%80%82
[JDK_Tomcat]: https://blog.csdn.net/qq_32519693/article/details/71330930
[tomcat_index.html]: https://qqe2.com/java/post/1647.html
[Html]: https://www.runoob.com/try/try.php?filename=tryhtml_video_html5_4
[Link 3]: https://www.cnblogs.com/cyfeng/p/11857981.html
[html]: https://zhidao.baidu.com/question/73920103.html
[html 1]: https://zhidao.baidu.com/question/303748757.html?qbl=relate_question_3&word=html%B1%B3%BE%B0%D2%F4%C0%D6%D7%D4%B6%AF%B2%A5%B7%C5embed
[html_embed]: https://zhidao.baidu.com/question/2201976595722313468.html
[HTML5]: https://bbs.itzmx.com/forum.php?mod=viewthread&tid=6267
[html 2]: https://segmentfault.com/q/1010000011198215#
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2VsaWNlXw_size_16_color_FFFFFF_t_70 1]: /images/20221022/aadcb785b8784d5d928ef7ddf53cd1d2.png
[20210415153338945.gif]: /images/20221022/2c27ea3313934295a1a1aeb446464116.png
[https_wwa.lanzous.com_i4Nivo2takf]: https://wwa.lanzous.com/i4Nivo2takf