注:文中代码部分可以左右滑动。
在实现需求的程序中,经常会遇到需要暂停下程序再执行的情况,那么如何做到让程序等一等呢?
例如,你想让你的程序今天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
联系客服