Trả về một giá trị kiểu Single thể hiện số giây đã trôi qua kể từ nửa đêm.
Cú pháp
Timer
Chú thích
Trong Microsoft Windows, hàm Timer trả về các phần phân số của một giây. Trên máy Macintosh, độ phân giải của bộ hẹn giờ là một giây.
Ví dụ về truy vấn
| Biểu thức | Kết quả |
|---|---|
| SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); | Trả về số giây đã trôi qua kể từ nửa đêm dựa trên thời gian hệ thống và hiển thị trong cột SecondsPast. |
Ví dụ về VBA
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm Timer để tạm dừng ứng dụng. Ví dụ cũng sử dụng DoEvents để nhường chuyển cho các tiến trình khác trong thời gian tạm dừng.
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