كيفية إضافة أيام إلى اليوم في vba (مع أمثلة)

يمكنك استخدام الدالة DateAdd في VBA لإضافة عدد محدد من الأيام إلى التاريخ.

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

سيضيف هذا الماكرو المحدد أربعة أيام إلى كل تاريخ في النطاق A2:A10 ويعرض التواريخ الجديدة في النطاق B2:B10 .

لاحظ أن الوسيطة “d” في الدالة DateAdd تحدد أننا نريد إضافة أيام إلى التواريخ بدلاً من وحدة زمنية أخرى.

ارجع إلى صفحة وثائق VBA للحصول على قائمة كاملة بالوحدات التي يمكنك استخدامها في وظيفة DateAdd .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: أضف أيامًا إلى هذا اليوم في VBA

لنفترض أن لدينا قائمة التواريخ التالية في Excel:

لنفترض أننا نريد إضافة أربعة أيام إلى كل تاريخ وعرض التواريخ الجديدة في العمود B.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن العمود B يحتوي على كل من التواريخ الموجودة في العمود A بالإضافة إلى أربعة أيام.

لا تتردد في تغيير القيمة الرقمية في وظيفة DateAdd لإضافة عدد مختلف من الأيام إلى كل تاريخ.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة DateAdd في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية مقارنة التواريخ في VBA
كيفية تحويل السلسلة إلى تاريخ في VBA
كيفية حساب الأيام بين تاريخين في VBA