تقوم بإرجاع متغير (تاريخ) يتضمن الوقت بالساعة والدقيقة والثانية المحددة.
بناء الجملة
TimeSerial(hour, minute, second)
تحذير تأكد من أن الوسيطات موجودة في نطاق القيم الصحيح. يمكن أن ينتج عن وسيطة غير صحيحة نتيجة غير صحيحة.
يحتوي بناء جملة الدالة 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 دقيقة. في حالة وجود أي وسيطة فردية خارج النطاق -32,768 إلى 32,767، يحدث خطأ. إذا تسبب الوقت المحدد بواسطة الثلاث وسائط في وقوع التاريخ خارج نطاق التواريخ المقبول، يحدث خطأ.
مثال استعلام
| التعبير | النتائج |
|---|---|
| تحديد TimeSerial (18,12,10) AS NewTime من ProductSales GROUP حسب TimeSerial(18,12,10); | ترجع "الوقت" المكون من ساعة ودقيقة وثانية محددة تم إدخالها في وسيطات الدالة ويتم عرضها في العمود "وقت جديد". النتيجة: "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.