Μετάβαση στο κύριο περιεχόμενο
Office

Συνάρτηση Timer

Επιστρέφει μια τιμή Πραγματικός απλής ακρίβειας η οποία εκφράζει τον αριθμό των δευτερολέπτων που έχουν παρέλθει από τα μεσάνυχτα.

Σύνταξη

Timer

Παρατηρήσεις

Στα Microsoft Windows, η συνάρτηση Timer επιστρέφει τα κλασματικά τμήματα ενός δευτερολέπτου. Στο Macintosh, η ανάλυση του χρονιστή είναι ένα δευτερόλεπτο.

Παράδειγμα ερωτήματος

Παράσταση

Αποτελέσματα

Επιλέξτε Timer () ως SecondsPast από το 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

Σημείωση:  Αυτή η σελίδα έχει μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας πείτε εάν σας βοήθησαν αυτές οι πληροφορίες; Εδώ θα βρείτε το άρθρο στα Αγγλικά για να το συμβουλεύεστε.

Δείτε επίσης

Επιλέξτε τη συνάρτηση Right Date

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×