كيفية طرح الأيام من التاريخ في vba (مع مثال)

يمكنك استخدام الدالة DateAdd في VBA برقم سالب لطرح عدد محدد من الأيام من تاريخ ما.

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

 Sub SubtractDays()

    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.

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

 Sub SubtractDays()

    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