Πίνακας περιεχομένων
Περιγραφή χρονοδιακόπτη
Επιστρέφει μια μεμονωμένη τιμή που αντιπροσωπεύει τον αριθμό των δευτερολέπτων που έχουν παρέλθει από τα μεσάνυχτα.
Απλά παραδείγματα χρονοδιακόπτη
Εδώ είναι ένα απλό παράδειγμα χρονοδιακόπτη:
| 123 | Sub Timer_Example ()Χρονόμετρο MsgBoxΤέλος υπο |
Σύνταξη χρονοδιακόπτη
Στο πρόγραμμα επεξεργασίας VBA, η σύνταξη για τη λειτουργία χρονοδιακόπτη.
| 1 | Μετρών την ώραν |
Η λειτουργία χρονοδιακόπτη δεν περιέχει ορίσματα:
Παραδείγματα της λειτουργίας χρονοδιακόπτη Excel VBA
Χρησιμοποιώντας το ακόλουθο παράδειγμα κώδικα, δοκιμάστε να συγκρίνετε sec1 και sec2.
Στη συνέχεια, μπορούμε εύκολα να γνωρίζουμε την έννοια της λειτουργίας χρονοδιακόπτη.
| 123456789101112131415161718192021222324252627 | Υποχρονοδιακόπτης_Παράδειγμα1 ()Dim sec1 Ως SingleDim sec2 Όσο καιρόsec1 = Χρονόμετροsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Τέλος υποΛειτουργία GetSecondsFromMidnight () Όσο καιρόDim dt Ως ημερομηνίαDim h ως ακέραιοςDim m ως ακέραιοςDim s As Integerdt = Τώραh = (ρα (dt)m = Λεπτό (dt)s = Δεύτερο (dt)λεπτά = h * 60 + mδευτ. = λεπτά * 60 + δευτGetSecondsFromMidnight = δευτερόλεπταΛειτουργία Τέλους |
Χρησιμοποιώντας τη λειτουργία χρονοδιακόπτη, μπορούμε να μετρήσουμε πόσο χρόνο θα χρειαστεί για να εκτελεστεί ένα τμήμα του κώδικα VBA.
| 1234567891011121314151617 | Υποχρονοδιακόπτης_Παράδειγμα2 ()Dim startSec Ως SingleDim endSec Ως SingleDim i As LongstartSec = Χρονόμετρο«Έναρξη κώδικα VBA για δοκιμήΓια i = 1 έως 500000DoEventsΕπόμενο iΤέλος κώδικα VBA για δοκιμήendSec = ΧρονόμετροMsgBox "Χρειάστηκε" & CStr (endSec - startSec) & "s."Τέλος υπο |
