Επιστρέφει μια τιμή Πραγματικός απλής ακρίβειας η οποία εκφράζει τον αριθμό των δευτερολέπτων που έχουν παρέλθει από τα μεσάνυχτα.
Σύνταξη
Timer
Παρατηρήσεις
Στα Microsoft Windows, η συνάρτηση Timer επιστρέφει κλασματικά τμήματα ενός δευτερολέπτου. Στο Macintosh, η ανάλυση του χρονοδιακόπτη είναι ένα δευτερόλεπτο.
Παράδειγμα ερωτήματος
|
Expression |
Αποτελέσματα |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
Επιστρέφει τον αριθμό των δευτερολέπτων που έχουν περάσει από τα μεσάνυχτα, με βάση την ώρα του συστήματος και εμφανίζεται στη στήλη SecondsPast. |
Παράδειγμα VBA
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Timer για την παύση της εφαρμογής. Το παράδειγμα χρησιμοποιεί επίσης DoEvents για να αποδώσει σε άλλες διεργασίες κατά τη διάρκεια της παύσης.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", _
4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
