ترجع متغيرا (تاريخ).
بناء الجملة
DateValue(date)
عادة ما تكون وسيطة التاريخالمطلوب عبارة عن تعبير سلسلة يمثل تاريخا من 1 يناير، 100 وحتى 31 ديسمبر، 9999. ومع ذلك، يمكن أن يكون التاريخ عبارة عن أي تعبير يمكن أن يمثل تاريخا أو وقتا أو كليهما في ذلك النطاق.
ملاحظات
إذا كانت date عبارة عن سلسلة تتضمن فقط أعدادا مفصولة بفواصل تاريخ صحيحة، فسيتعرف DateValue على ترتيب الشهر واليوم والسنة وفقا لتنسيق التاريخ القصير الذي حددته للنظام الخاص بك. تتعرف DateValue أيضا على التواريخ غير اللبس فيها التي تحتوي على أسماء شهور، إما في شكل طويل أو مختصر. على سبيل المثال، بالإضافة إلى التعرف على 12/30/1991 و12/30/91، تعترف DateValue أيضا ب 30 ديسمبر 1991 و30 ديسمبر 1991.
إذا تم حذف جزء السنة من التاريخ ، فإن DateValue تستخدم السنة الحالية من تاريخ النظام على الكمبيوتر.
إذا كانت وسيطة التاريخ تتضمن معلومات الوقت، فلن ترجعها. ومع ذلك، إذا تضمن التاريخ معلومات وقت غير صالحة (مثل "89:98")، يحدث خطأ.
ملاحظة
بالنسبة للتاريخ، إذا كان إعداد خاصية Calendar ميلاديا، فيجب أن يكون التاريخ الموفر ميلاديا. إذا كان التقويم هجريا ، فيجب أن يكون التاريخ المقدم هجري. إذا كان التاريخ الموفر هو التاريخ الهجري، يكون تاريخ الوسيطة عبارة عن سلسلة تمثل تاريخا من 1/1/100 (ميلادي أغسطس 2، 718) إلى 4/3/9666 (الميلادي ديسمبر 31، 9999).
أمثلة عن الاستعلام
| التعبير | النتائج |
|---|---|
| SELECT DateValue([DateTime]) AS Expr1 FROM ProductSales; | إرجاع قيم التاريخ للحقل "DateTime" بتنسيق التاريخ القصير بدون معلومات الوقت. |
| SELECT DateValue([DateTime]) AS NewDate, Count(ProductSales.DateTime) AS CountOfDateTime FROM ProductSales GROUP BY DateValue([DateTime]); | إرجاع قيم التاريخ للحقل "DateTime" بتنسيق التاريخ القصير بدون معلومات الوقت. |
مثال VBA
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة DateValue لتحويل سلسلة إلى تاريخ. يمكنك أيضا استخدام أحرف التواريخ لتعيين تاريخ مباشرة إلى متغير أو متغير تاريخ ، على سبيل المثال، MyDate = #2/12/69#.
Dim MyDate
MyDate = DateValue("February 12, 1969") ' Return a date.