تقوم بإرجاع نوع بيانات مفرد موضحاً عدد الثواني التي انقضت منذ منتصف الليل.
بناء الجملة
المؤقت
ملاحظات
في Microsoft Windows، ترجع الدالة مؤقت أجزاء كسرية من الثانية. في Macintosh، تبلغ دقة المؤقت ثانية واحدة.
مثال استعلام
| التعبير | النتائج |
|---|---|
| SELECT Timer() AS SecondsPast FROM 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