الدالة Timer

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

بناء الجملة

المؤقت

ملاحظات

في 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, 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

اختر دالة التاريخ المناسبة

مثال على الاستعلام

مثال VBA

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

الخروج من الخيارات إضافية؟

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

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