كيفية استخدام وظيفة VBA DateAdd في Excel

Hugh West

وظيفة VBA DateAdd تقع ضمن فئة التاريخ والوقت لوظائف Excel VBA . باستخدام هذه الوظيفة ، يمكننا إضافة أو طرح السنوات والأشهر والأيام والأرباع وحتى فترات زمنية مختلفة مثل الساعات والدقائق والثواني من تاريخ معين. يعتبر التعامل مع التاريخ والوقت في العمليات الحسابية اليومية لإنشاء التقارير أو إجراء مقارنات سيناريو شائعًا. في Excel ، يؤدي استخدام وظائف التاريخ والوقت VBA مثل وظيفة DateAdd إلى جعل العمليات الحسابية المعقدة أو المستهلكة للوقت أكثر كفاءة وأسرع.

تنزيل Practice Workbook

تنزيل هذا المصنف التدريبي للتمرين أثناء قراءة هذه المقالة.

VBA DateAdd Function.xlsm

مقدمة إلى Excel VBA DateAdd Function

النتيجة:

تاريخ يتم فيه إضافة فترة زمنية محددة أو طرحها

بناء الجملة:

DateAdd (فاصل زمني ، رقم ، تاريخ)

الوسيطات:

الوسيطة مطلوب / اختياري الوصف
فاصل مطلوب A سلسلة تعبير.

الفاصل الزمني في الإعدادات المختلفة التي نريد أن نضيفها رقم مطلوب A تعبير رقمي .

الرقم من الفواصل الزمنية لتضاف أو تطرح

يمكن أن تكون موجب - من أجل التواريخ المستقبلية

يمكن أن تكون سلبية - لـ الماضي التواريخ التاريخ مطلوب A التاريخ التعبير

التاريخ التي تمت إضافة الفواصل الزمنية إليها

الإعدادات:

تحتوي وظيفة DateAdd على هذه الفاصل الزمني الإعدادات:

الإعداد الوصف
yyyy السنة
q ربع
م الشهر
y عام اليوم
d اليوم
w يوم من أيام الأسبوع
ww الأسبوع
h الساعة
n الدقيقة
s الثانية

أمثلة على وظيفة Excel VBA DateAdd

تعبيرات الصيغة لوظيفة Excel DateAdd

هناك طرق مختلفة لوضع التاريخ الوسيطة في دالة DateAdd . تؤدي جميعها إلى نفس الإخراج.

ضع الرمز التالي في محرر Visual Basic:

(How لتشغيل التعليمات البرمجية في محرر Visual Basic)

1442

شرح :

DateAdd (“yyyy”، 2، إحدى الطرق التالية)

لوضع وسيطة التاريخ ، يمكننا استخدام طرق مختلفة:

  • # 1/1/2011 #
  • DateSerial ( السنة ، الشهر ، اليوم)
  • DateValue ( date )
  • النطاق ("الخلية") - التاريخ المخزن في خلية
  • تخزين التاريخ فيمتغير

في الخلايا D3 ، D4 ، D5 ، D6 ، D7 نضع الطرق المذكورة أعلاه على أنها التاريخ وسيطة DateAdd تعمل بالتتابع وحصلت على نفس النتيجة.

أضفنا 2 ​​ أكثر من سنة إلى 1/1/2022 مما نتج عنه 1/1/2024.

هنا ، يمثل

yyyy السنة على أنها الفاصل الزمني

2 ​​ يمثل من الفواصل الزمنية كـ رقم .

التعليمات: كيفية تشغيل التعليمات البرمجية في محرر Visual Basic

اتبع الخطوات:

  • من شريط Excel ، انتقل إلى علامة تبويب المطور وحدد Visual Basic علامة التبويب.

  • من النافذة الجديدة ، انقر فوق علامة التبويب إدراج واختر الوحدة النمطية.

  • اكتب كود في المحرر واضغط F5 إلى تشغيل.

إضافة إعدادات فاصل زمني مختلفة باستخدام وظيفة DateAdd في Excel

1. إضافة سنة

الكود:

3000

النتيجة: سنتان تمت إضافتهما إلى 1/1 / 2022 (mm / dd / yyyy) وأسفر عن 1/1/2024 (mm // dd / yyyy).

اقرأ المزيد: كيفية استخدام وظيفة السنة في Excel VBA

2. إضافة ربع

الرمز:

9491

النتيجة: 2 ربع = 6 أشهر مضافًا إلى 1/1/2022 (mm / dd / yyyy) وأسفرت عن 7/1/2022 (mm // dd / yyyy).

3. إضافة شهر

الرمز:

9314

النتيجة: شهرينتمت إضافة إلى 1/1/2022 (mm / dd / yyyy) وأسفر عن 3/1/2022 (mm // dd / yyyy).

اقرأ المزيد: كيفية استخدام وظيفة Excel VBA MONTH

4. أضف يومًا في السنة

الرمز:

7134

النتيجة: تمت إضافة يومان من العام إلى 1/1/2022 (mm / dd / yyyy) وأسفرت عن 1/3/2022 (mm // dd / yyyy).

اقرأ المزيد: كيفية استخدام وظيفة Day في Excel VBA

5. إضافة يوم

الرمز:

6470

النتيجة: تمت إضافة يومين إلى 1/1 / 2022 (mm / dd / yyyy) وأسفر عن 1/3/2022 (mm // dd / yyyy).

قراءات مماثلة

  • Excel VBA للبحث عن رقم الأسبوع (6 أمثلة سريعة)
  • كيفية استخدام وظيفة VBA DatePart في Excel (7 أمثلة)
  • استخدم وظيفة VBA DateSerial في Excel (5 تطبيقات سهلة)
  • كيفية تحويل التاريخ من سلسلة باستخدام VBA ( 7 طرق) 2> 26> 27> 28> 1> 6. إضافة أيام الأسبوع

    الرمز:

    9944

    النتيجة: تمت إضافة 10 أيام من أيام الأسبوع إلى 1/1 / 2022 (mm / dd / yyyy) وأسفر عن 1/11/2022 (mm // dd / yyyy).

    7. إضافة أسبوع

    الرمز:

    7430

    النتيجة: أسبوعان = تمت إضافة 14 يومًا إلى 1/1/2022 (mm / dd / yyyy) وأسفرت عن 1/15/2022 (mm // dd / yyyy).

    اقرأ المزيد: كيفية الحصول على يوم الأسبوع باستخدام VBA

    8. إضافة ساعة

    الرمز:

    9949

    النتيجة: 14تمت إضافة الساعات إلى 1/1/2022 12:00 صباحًا (mm / dd / yyyy: hh / mm) وأسفرت عن 1/1/2022 2:00 PM (mm // dd / yyyy: hh / mm).

    9. إضافة دقيقة

    الرمز:

    6206

    النتيجة: 90 دقيقة = 1.30 ساعة مضافة إلى 1/1/2022 12:00 ص (mm / dd / yyyy) وأسفرت عن 1/1/2022 1:30 AM (mm // dd / yyyy).

    10. إضافة ثانية

    الرمز:

    3382

    النتيجة: 120 ثانية = دقيقتان مضافتان إلى 1/1/2022 12:00 ص (mm / dd / yyyy: hh / mm) وأسفرت عن 1/1/2022 12:02 صباحًا (mm // dd / yyyy: hh /mm).

    استخدام وظيفة DateAdd في Excel لطرح إعدادات الفاصل الزمني المختلفة

    وبالمثل ، يمكننا اطرح سنوات ، شهور ، أيام ، ساعات ، دقائق ، إلخ من تاريخ باستخدام علامة ناقص في أمام من وسيطة رقم . على سبيل المثال:

    الرمز:

    7954

    النتيجة: سنتان مطروح من 1/1/2022 (مم / dd / yyyy) وأسفرت عن 1/1/2020 (mm // dd / yyyy).

    أشياء يجب تذكرها

    • عندما نستخدم 'w' لإضافة أيام الأسبوع فإنه يضيف جميع أيام الأسبوع بما في ذلك السبت والأحد ، وليس أيام العمل فقط (قد يتوقع شخص ما).
    • لا تنتهي وظيفة DateAdd بإظهار تاريخ غير صالح . على سبيل المثال ، إذا أضفنا شهرًا واحدًا إلى 31 كانون الثاني (يناير) 2022 ، فسيظهر ذلك في 28 شباط (فبراير) 2022 ، وليس في 31 شباط (فبراير) 2022 (غير موجود).
    • إذا طرحنا المزيدمن 122 عامًا من الآن قد يحدث خطأ لأن تاريخ Excel يبدأ من 1 يناير 1990.
    • تاريخ الإرجاع لـ DateAdd تعتمد الوظيفة على إعدادات تاريخ لوحة التحكم.
    • يجب علينا وسيطة التاريخ لوظيفة DateAdd وفقًا لخاصية التقويم . إذا كان التقويم هو ميلادي ، يجب أن يكون الإدخال da te الوسيطة أيضًا في ميلادي . وبالمثل ، إذا كان التقويم هجريًا ، فيجب أن تكون وسيطة التاريخ بنفس التنسيق.

    الخاتمة

    الآن ، نحن نعرف كيفية استخدام VBA دالة DateAdd في Excel. نأمل أن يشجعك ذلك على استخدام هذه الوظيفة بثقة أكبر. أي أسئلة أو اقتراحات لا تنسى وضعها في مربع التعليق أدناه

هيو ويست مدرب ومحلل إكسل ذو خبرة عالية ولديه أكثر من 10 سنوات من الخبرة في هذا المجال. حاصل على درجة البكالوريوس في المحاسبة والمالية ودرجة الماجستير في إدارة الأعمال. لدى هيو شغف بالتدريس وقد طور منهجًا تعليميًا فريدًا يسهل اتباعه وفهمه. ساعدت معرفته الخبيرة ببرنامج Excel الآلاف من الطلاب والمهنيين في جميع أنحاء العالم على تحسين مهاراتهم والتميز في حياتهم المهنية. من خلال مدونته ، يشارك Hugh معرفته مع العالم ، ويقدم دروسًا مجانية في Excel وتدريبًا عبر الإنترنت لمساعدة الأفراد والشركات على تحقيق إمكاناتهم الكاملة.