Pernyataan Tunggu Hingga

Menginterupsi pelaksanaan program sampai waktu yang ditentukan

Sintaksis:

waktu relatif dari waktu saat ini

Parameter:

Waktu Ekspresi numerik yang mengandung sejumlah waktu (dalam milidetik) untuk menunggu sebelum program dieksekusi.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


        Tunggu REM sampai 6:00 PM lalu panggil MyMacro
        REM jika setelah 6:00 PM, keluar
        Sub ExampleWaitUntil
        Dim vTimeschedule As Long
            vTimeSchedule = Date() + TimeValue("18:00:00")
            If vTimeSchedule < Now() Then Exit Sub
            WaitUntil vTimeSchedule
            Call MyMacro
        End Sub
    

Mohon dukung kami!