WaitUntil 语句

中断程序执行，直到指定的时间。

语法:

WaitUntil 时间

参数:

「时间」: 日期时间表达式，在执行程序之前等待的日期与时间。

错误代码:

5 无效的过程调用

示例:


        REM 等到下午六点，调用 MyMacro。
        REM 如果在下午六点以后，退出。
        Sub ExampleWaitUntil
        Dim vTimeschedule As Long
            vTimeSchedule = Date() + TimeValue("18:00:00")
            If vTimeSchedule < Now() Then Exit Sub
            WaitUntil vTimeSchedule
            Call MyMacro
        End Sub

Wait 语句