Vba: كيفية حساب الأيام بين تاريخين

يمكنك استخدام بناء الجملة الأساسي التالي في VBA لحساب عدد الأيام بين تاريخين:

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

سيقوم هذا المثال المحدد بحساب عدد الأيام بين التواريخ في الخلايا المقابلة في النطاقين A2:A7 و B2:B7 وإرجاع النتائج في النطاق C2:C7 .

لاحظ أن الوسيطة “D” في الدالة DateDiff تحدد أننا نريد حساب فرق التاريخ من حيث الأيام.

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

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

مثال: حساب الأيام بين التواريخ في VBA

لنفترض أن لدينا العمودين التاليين مع التواريخ في Excel:

لنفترض أننا نريد حساب عدد التواريخ بين تاريخ البدء وتاريخ الانتهاء في كل صف وعرض النتائج في العمود C.

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

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

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

تتم الإشارة إلى عدد التواريخ بين كل تاريخ بدء وكل تاريخ انتهاء في العمود C.

مصادر إضافية

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

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