إرجاع متغير (تاريخ).
بناء الجملة
DateValue(date)
وسيطة التاريخالمطلوبة هي عادة تعبير سلسلة يمثل تاريخا من 1 يناير 100 إلى 31 ديسمبر 9999. ومع ذلك، يمكن أن يكون التاريخ أيضا أي تعبير يمكن أن يمثل تاريخا أو وقتا أو تاريخا ووقتا في هذا النطاق.
ملاحظات
إذا كان التاريخ عبارة عن سلسلة تتضمن أرقاما مفصولة بفواصل تاريخ صالحة فقط، فإن DateValue يتعرف على ترتيب الشهر واليوم والسنة وفقا لتنسيق "التاريخ القصير" الذي حددته لنظامك. يتعرف DateValue أيضا على التواريخ التي لا لبس فيها والتي تحتوي على أسماء أشهر، إما في شكل طويل أو مختصر. على سبيل المثال، بالإضافة إلى التعرف على 12/30/1991 و12/30/91، يتعرف DateValue أيضا على 30 ديسمبر 1991 و30 ديسمبر 1991.
إذا تم حذف جزء السنة من التاريخ ، فإن DateValue يستخدم السنة الحالية من تاريخ نظام الكمبيوتر.
إذا كانت وسيطة التاريخ تتضمن معلومات الوقت، فلن ترجعها 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.