تقوم بإرجاع متغير ‏(عدد صحيح) يحتوي على الجزء المحدد لتاريخ معين.

تحذير    هناك مشكلة في استخدام هذه الدالة. يمكن إرجاع آخر يوم اثنين في بعض سنوات التقويم كالاسبوع 53 عندما يكون الأسبوع 1. لمزيد من المعلومات والحل البديل، راجع الدالتين Format أو DatePart إرجاع رقم أسبوع غير صحيح للاثنين الماضيين في السنة.

بناء الجملة

DatePart ( فاصل زمني، تاريخ [، أول أيام الأسبوع] [، أولweekofyear] )

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

الوسيطة

الوصف

فاصل

مطلوبة. تعبير السلسلة هو الفاصل الزمني للوقت الذي تريد إرجاعه.

تاريخ

مطلوبة. قيمة متغيرة(تاريخ)تريد تقييمها.

أول أيام الأسبوع

اختياري. جزء ثابت يحدد اليوم الأول من الأسبوع. إذا لم يكن محددا، فيفترض أن يوم الأحد.

أولweekofyear

اختياري. ثابت يحدد الأسبوع الأول من السنة. إذا لم يكن محددا، فيفترض أن الأسبوع الأول هو الأسبوع الذي يقع فيه التاريخ 1 يناير.

الإعدادات

وتتضمن وسيطة الفاصل الزمني هذه الإعدادات:

الإعداد

الوصف

yyyy

السنة

q

ربع السنة

m

الشهر

y

يوم في السنة

d

يوم

w

Weekday

ww

الأسبوع

h

الساعة

د

الدقيقة

s

الثانية

وسيطة أول أيام الأسبوع لها هذه الإعدادات:

ثابت

القيمة

الوصف

vbUseSystem

0

استخدم إعداد NLS API.

vbSunday

1

الأحد (افتراضي)

vbMonday

2

الاثنين

vbTuesday

3

الثلاثاء

vbWednesday

4

الأربعاء

vbThursday

5

الخميس

vbFriday

6

الجمعة

vbSaturday

7

السبت

وتتضمن الوسيطة firstweekofyear هذه الإعدادات:

ثابت

القيمة

الوصف

vbUseSystem

0

استخدم إعداد NLS API.

vbFirstJan1

1

تبدأ الأسبوع الذي يقع فيه 1 يناير (افتراضي).

vbFirstFourDays

2

ابدأ الأسبوع الأول الذي له أربعة أيام على الأقل في السنة الجديدة.

vbFirstFullWeek

3

ابدأ بأسبوع كامل أول من السنة.

ملاحظات

يمكنك استخدام الدالة DatePart لتقييم تاريخ وإرجاع فاصل زمني معين. على سبيل المثال، يمكنك استخدام DatePart لحساب يوم الأسبوع أو الساعة الحالية.

تؤثر الوسيطة firstdayofweek على العمليات الحسابية التي تستخدم رمزي الفاصل "w" و"ww".

إذا كانتda teأحرف التاريخ ، تصبح السنة المحددة جزءا دائما من ذلك التاريخ. ومع ذلك، إذا كان التاريخ محاطا بين علامات اقتباس مزدوجة (" ")، واحذفت السنة، يتم إدراج السنة الحالية في التعليمات البرمجية في كل مرة يتم فيها تقييم تعبير التاريخ. هذا يجعل من الممكن كتابة التعليمات البرمجية التي يمكن استخدامها في سنوات مختلفة.

ملاحظة: بالنسبة إلى التاريخ،إذا كان إعداد خاصية التقويم ميلاديا، فيجب أن يكون التاريخ الذي تم توفيره ميلاديا. إذا كان التقويم هو الهجري، فيجب أن يكون التاريخ الذي تم توفيره هو الهجري.

يوجد جزء التاريخ المرجع في وحدات الفترة الزمنية في التقويم العربي الحالي. على سبيل المثال، إذا كان التقويم الحالي هو الهجري وجزء التاريخ الذي سيتم إرجاعه هو السنة، فإن قيمة السنة هي السنة الهجرية.

أمثلة الاستعلام

التعبير

النتائج

SELECT DatePart("yyyy",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "السنة" لقيم التاريخ في الحقل "DateofSale".

SELECT DatePart("q",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "ربع السنة" (استنادا إلى سنة التتالي) لقيم التاريخ في الحقل "DateofSale".

SELECT DatePart("y",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "يوم من السنة" (من 1 إلى 365) لقيم التاريخ في الحقل "DateofSale".

SELECT DatePart("d",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "اليوم" لقيم التاريخ في الحقل "DateofSale".

SELECT DatePart("w",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "يوم الأسبوع" (من 1 إلى 7 حيث يمثل 1 الأحد) قيم التاريخ في الحقل "DateofSale".

SELECT DatePart("ww",[DateofSale]) AS NewDate FROM ProductSales;

إرجاع "رقم الأسبوع" (من 1 إلى 52) لقيم التاريخ في الحقل "DateofSale".

SELECT DatePart("h",[DateTime]) AS NewDate FROM ProductSales;

إرجاع "الساعة" لقيم تاريخ الحقل "DateTime".

SELECT DatePart("n",[DateTime]) AS NewDate FROM ProductSales;

إرجاع "الدقائق" لقيم التاريخ في الحقل "DateTime".

SELECT DatePart("s",[DateTime]) AS NewDate FROM ProductSales;

إرجاع "الثواني" لقيم تاريخ الحقل "DateTime".

مثال VBA

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

يأخذ هذا المثال تاريخا ويعرض، باستخدام الدالة DatePart، ربع السنة الذي يحدث فيه.

Dim TheDate As Date    ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

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

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

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

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

ما مدى رضاك عن جودة الترجمة؟

ما الذي أثّر في تجربتك؟

هل لديك أي ملاحظات إضافية؟ (اختياري)

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

×