وظيفة Excel VBA DateDiff
ال وظيفة DateDiff في Excel VBA يمكن استخدامها للحصول على عدد الأيام بين تاريخين.
ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:
Dim firstDate As Date, secondDate As Date, n As Integer
firstDate = DateValue("Jun 19, 2010")
secondDate = DateValue("Jul 25, 2010")
n = DateDiff("d", firstDate, secondDate)
MsgBox n
firstDate = DateValue("Jun 19, 2010")
secondDate = DateValue("Jul 25, 2010")
n = DateDiff("d", firstDate, secondDate)
MsgBox n
شرح: أولا ، نعلن تاريخين. بعد ذلك ، نقوم بتهيئة التاريخين باستخدام وظيفة DateValue. تحتوي الدالة DateDiff على ثلاث وسائط. املأ "d" للوسيطة الأولى لأننا نريد عدد الأيام بين تاريخين. وأخيرًا ، نستخدم MsgBox لعرض عدد الأيام بين التاريخين.
النتيجة عند النقر فوق زر الأمر الموجود على الورقة:
تغيير "d" إلى "ww" للحصول على عدد الأسابيع بين تاريخين. ضع المؤشر الخاص بك على DateDiff في Visual Basic Editor وانقر فوق F1 للحصول على تعليمات حول المحددات الفاصل الأخرى.
