الدالة Timer

تقوم بإرجاع نوع بيانات مفرد موضحاً عدد الثواني التي انقضت منذ منتصف الليل.

بناء الجملة

المؤقت

ملاحظات

في Microsoft Windows، ترجع الدالة Timer الأجزاء الكسرية لثانية. في 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

انظر أيضاً

اختيار دالة التاريخ الصحيحة

هل تحتاج إلى مزيد من المساعدة؟

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×