Πρόταση WaitUntil

Διακόπτει την εκτέλεση του προγράμματος μέχρι τον καθορισμένο χρόνο.

Σύνταξη:

Χρόνος WaitUntil

Παράμετροι:

Χρόνος: Παράσταση ημερομηνίας και χρόνου που περιέχει την ημερομηνία και τον χρόνο αναμονής πριν την εκτέλεση του προγράμματος.

Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

Παράδειγμα:


        REM Wait until 6:00 PM then call MyMacro.
        REM If after 6:00 PM, exit.
        Sub ExampleWaitUntil
        Dim vTimeschedule As Long
            vTimeSchedule = Date() + TimeValue("18:00:00")
            If vTimeSchedule < Now() Then Exit Sub
            WaitUntil vTimeSchedule
            Call MyMacro
        End Sub