تقوم بإرجاع نوع بيانات مفرد موضحاً عدد الثواني التي انقضت منذ منتصف الليل.
بناء الجملة
المؤقت
ملاحظات
في Microsoft Windows، ترجع دالة المؤقت أجزاء كسرية من ثانية واحدة. على Macintosh، دقة المؤقت هي ثانية واحدة.
مثال على الاستعلام
|
تعبير |
النتائج |
|
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); |
إرجاع عدد الثوان المنقضية منذ منتصف الليل استنادا إلى وقت النظام ويعرض في العمود SecondsPast. |
مثال VBA
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال دالة المؤقت لإيقاف التطبيق مؤقتا. يستخدم المثال أيضا DoEvents للرضخ لعمليات أخرى أثناء الإيقاف المؤقت.
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
