Χειρισμός χρόνου

Το παρακάτω παράδειγμα μας δείχνει πως μπορούμε με πρόγραμμα να δημιουργήσουμε μια καθυστέριση ορισμένων δευτερολέπτων.

' Delay the specified number of seconds
Sub delay(t As Integer)
    Dim i As Integer
    For i = 1 To t
        delayHalfSecond
    Next i
End Sub

' Delay a period between (0-1) second
Sub delayHalfSecond()
    Dim start As Date

    start = Now
    Do While Second(start) = Second(Now)
        ' Let the computer do something else
        DoEvents
    Loop
End Sub

PreviousΣύνδεση με το Excel
Contents
NextΠρόσβαση στο πρόχειρο