Επιστρέφει Single, ο οποίος αντιπροσωπεύει τον αριθμό των δευτερολέπτων που έχουν περάσει από τα μεσάνυχτα.

Σύνταξη

Timer

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

Dim Χρόνος_παύσης, Αρχή, Τέλος, Συνολικός_χρόνος
If (MsgBox("Πατήστε Ναι για παύση 5 δευτερολέπτων", 4)) = vbYes Then
 Χρόνος_παύσης = 5 ' Ορισμός διάρκειας.
 Αρχή = Timer ' Ορισμός χρονικής στιγμής έναρξης.
 Do While Timer < Αρχή + Χρόνος_παύσης
  DoEvents ' Παραχώρηση του ελέγχου σε άλλες διαδικασίες.
 Loop
 Τέλος = Timer ' Ορισμός χρονικής στιγμής λήξης.
 Συνολικός_χρόνος = Τέλος - Αρχή ' Υπολογισμός συνολικού χρόνου.
 MsgBox "Έγινε παύση για " & Συνολικός_χρόνος & " δευτερόλεπτα"

Else
 End
End If