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 thập phân của một giây. Trên Macintosh, độ phân giải 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ụ này cũng sử dụng DoEvents để tạo ra các quy trình khác trong quá trình tạm dừng.
Dim PauseTime, Start, Finish, TotalTimeIf (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 EndEnd If
