Wait Timer VBA

Braxton Bell answered on May 18, 2022 Popularity 5/10 Helpfulness 1/10

answer Wait Timer VBA

Wait Timer VBA

Comment

Public Function Pause(NumberOfSeconds As Variant)
    On Error GoTo Error_GoTo

    Dim PauseTime As Variant
    Dim Start As Variant
    Dim Elapsed As Variant

    PauseTime = NumberOfSeconds
    Start = Timer
    Elapsed = 0
    Do While Timer < Start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            Start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop

Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function

Popularity 5/10 Helpfulness 1/10 Language vb

Source: stackoverflow.com

Tags: timer vba wait

Link to this answer
Share Copy Link