代码说明：time是date类型，转成double表示的当前时间占全天的比值。比如12:00:00正好时一天的正中，因此表示12:00:00的date转换为double后正好是0.5。那么可以再乘上一天的总秒数86400秒，来表示是一天中的第几秒，atv，再根据除以1800秒（半个小时是1800秒）所得的余数，即可判断是否到半点或整点了。余数1770表示XX:29:30或XX:59:30，余数30表示XX:30:30或XX:00:30。

7、接着我们把表示角标报时的shapes(5)的visible（是否可见）属性与该函数的返回值绑定在一起。在Tick过程的With块中，新增一行：

.Shapes(5).Visible = ifHalfHour

这样任务就基本完成了。另外，我们还希望能在退出幻灯片放映后能够停止计时，能重置报时器等，于是就引入了OnSlideShowTerminate（在放映结束时自动运行）和Reset（尚未定义触发条件）过程：

Sub OnSlideShowTerminate()

KillTimer GetActiveWindow, 101

End Sub

Sub Reset()

With ActivePresentation.Slides(1)

.Shapes(3).TextFrame.TextRange = "0000-00-00"

.Shapes(4).TextFrame.TextRange = "00:00:00"

.Shapes(5).TextFrame.TextRange = "00:00:00"

.Shapes(5).Visible = True

End With

End Sub

现在奉上半点报时时的效果动图，报时长达1分钟（动图效果：点此观看）。

更多设想：为了丰富测试图的内容，大家还可以加入背景音乐；当然也可以把“IT之家电视台”再办下去，让它开播等等。

最后给出做好的PowerPoint文档、效果图、测试卡底图等（点此下载），打开的时候别忘了允许宏运行。大家发挥想象，自己玩去吧。返回搜狐，查看更多