Instrução WaitUntil

Interrompe a execução do programa até ao horário especificado.

Sintaxe:

Hora WaitUntil

Parâmetros:

Tempo: Uma expressão de Data e Hora que contém a data e hora de espera antes de o programa ser executado.

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:


        REM Aguardar até 18:00 e então chamar MyMacro.
        REM Se ocorrer depois de 18:00, finalizar.
        Sub ExampleWaitUntil
        Dim vTimeschedule As Long
            vTimeSchedule = Date() + TimeValue("18:00:00")
            If vTimeSchedule < Now() Then Exit Sub
            WaitUntil vTimeSchedule
            Call MyMacro
        End Sub