VBA基础入门（36）如何让你的程序等一等？

注：文中代码部分可以左右滑动。

在实现需求的程序中，经常会遇到需要暂停下程序再执行的情况，那么如何做到让程序等一等呢？

例如，你想让你的程序今天12点再开始实行：

application.wait "12:00:00" 。

例如，你想让你的程序等10秒再执行:

application.wait (Now + TimeValue("00:00:10"))

就可以了。

wait后面的参数是你要执行的时间点，我们只需要用现在的时间+你想暂停的时间就可以了。       

需要注意的是，这里的暂停的时间要是这种hh:mm:ss(时分秒)的格式。

那么，如果我想暂停的时间是一个变量，我也不确定到底是多少秒，可能是50秒也可能是100秒，那我暂停的时间应该怎么去写呢？怎么把我要暂停的秒数换成时分秒的格式？

我们可以创造一个变换格式的函数：

我们只需要在用的时候调用下面这个函数就可以了，

Application.Wait (Now + TimeValue(DateFormat(WaitTime)))

上面的WaitTime就是你要等待的时间，你可以换成其他的变量。

Function DateFormat(Byval Mytime As Integer)  Dim H%, M%, S%  H = Mytime / 3600  M = (Mytime - 3600 * H) / 60  S = Mytime - 3600 * H - 60 * M  DateFormat = Format(TimeSerial(H, M, S), "hh:mm:ss")End Function