تقوم بإرجاع متغير‏ (تاريخ) يتضمن الوقت بالساعة والدقيقة والثانية المحددة.

بناء الجملة

TimeSerial ( ساعة، دقيقة، ثانية)

تحذير    تأكد من أن الوسيطات في نطاق القيم الصحيح. يمكن أن ينتج عن الوسيطة غير الصالحة نتيجة غير صحيحة.

بناء جملة الدالة TimeSerial على هذه الوسيطات:

الوسيطة

الوصف

ساعة

مطلوبة. متغير (عدد صحيح). الرقم بين 0 (12:00 ص) و23 (11:00 م)، ضمنا، أو تعبير رقمي.

دقيقة

مطلوبة. متغير (عدد صحيح). أي تعبير رقمي.

الثانية

مطلوبة. متغير (عدد صحيح). أي تعبير رقمي.

ملاحظات

لتحديد وقت، مثل 11:59:59، يجب أن يكون نطاق الأرقام لكل وسيطة TimeSerial في النطاق العادي للوحدة؛ أي من 0 إلى 23 للساعات و0–59 للدقائق والثواني. ومع ذلك، يمكنك أيضا تحديد الأوقات النسبية لكل وسيطة باستخدام أي تعبير رقمي يمثل بعض الساعات أو الدقائق أو الثواني قبل وقت معين أو بعده. يستخدم المثال التالي التعبيرات بدلا من أرقام الوقت المطلقة. ترجع الدالة TimeSerial وقتا لمدة 15 دقيقة قبل (-15) قبل ست ساعات من الظهر (12 - 6) أو 5:45:00 م.

TimeSerial(12 - 6, -15, 0)

عندما تتجاوز أي وسيطة النطاق العادي لهذه الوسيطة، فإنه يزيد إلى الوحدة الأكبر التالية كما هو مناسب. على سبيل المثال، إذا قمت بتحديد 75 دقيقة، يتم تقييمها كساعة واحدة و15 دقيقة. إذا كانت هناك أي وسيطة مفردة خارج النطاق من 32768 إلى 32767، يحدث خطأ. إذا كان الوقت المحدد بواسطة الوسيطات الثلاث يتسبب في وقوع التاريخ خارج نطاق التواريخ المقبول، يحدث خطأ.

مثال استعلام

التعبير

النتائج

SELECT TimeSerial(18,12,10) AS NewTime FROM ProductSales GROUP BY TimeSerial(18,12,10);

ترجع هذه الدالة "الوقت" الذي يكمن ساعة ودقيقة والثانية المحددة التي تم إدخالها في وسيطات الدالة وتعرض في العمود NewTime. النتيجة: "6:12:10 م".

مثال VBA

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة TimeSerial لإرجاع وقت للساعة والدقيقة والثانية المحددة.

Dim MyTime
MyTime = TimeSerial(16, 35, 17)
' MyTime contains serial representation of 4:35:17 PM.

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

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

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

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

ما مدى رضاك عن جودة الترجمة؟
ما الذي أثّر في تجربتك؟

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

×