كيفية استخدام الدالة VBA DATE في إكسل VBA
حيث تقوم الدالة VBA DATE بإرجاع التاريخ الحالي وفقًا لتكوين النظام. كما تعلمون ، فإن الدالة TODAY هي دالة محدثة حيث تحدث التاريخ باستمرار ،
الشكل العام للدالة
TODAY()
ولكن إذا قمت بدالة VBA DATE لإدراج تاريخ حالي ، فإنها تُرجع قيمة ثابتة. وعندما تريد لإدراج التاريخ الحالي مرة أخرى ، يمكنك تشغيل الكود مرة اخرى وسوف يحدث التاريخ الحالي مرة أخرى.
بناء جملة الدالة Date فى ورقة العمل
Date(year;month;day)=
وهذا يتطلب منا ادخال البارميترات الخاصة بالدالة Date وهى (year ) عام محدد وشهر محدد(month) واليوم (day)
ولكن فى الدالة date vba excel لن تحتاج الى ادخال هذة البارميترات ويكون شكل الدالة هكذا
Syntax بناء الجملة
=Date ()
في بناء جملة VBA DATE لا توجد وسيطة لتحديد ، يمكنك ببساطة استخدام الأقواس الفارغةعند استخدام هذه الوظيفة ، لن تكون هناك حاجة لاستخدام الأقواس.
أمثلة : انظر إلى المثال التالي حيث استخدمناها لإدراج تاريخ حالي في الخلية A1. عندما تقوم بتشغيل هذا الكود ، فسوف يقوم ببساطة بإدخال تاريخ ثابت ثابت في الخلية A1 .
Sub todayDate()
Range("A1").Value = Date
End Sub
وفي المثال التالي ، استخدمنا الدالة IF الشرطية لكتابة كود يعرض مربع رسالة أثناء الفتح إذا كان التاريخ في الخلية A1 يساوي التاريخ الحالي.
لديّ تاريخ استحقاق فاتورة بطاقتي الائتمانية في الخلية A1 ،
وعندما أفتح ملفي ، سيذكّرني بسداد فاتورة اليوم مستحقة الدفع.
Sub auto_open()
If Range("A1").Value = Date Then
MsgBox ("Hey! Today you need to pay your Credit Card.")
Else
Exit Sub
End If
End Sub
كيفية تنسيق التاريخ فى اكسل vba (date vba format)
Sub format_date_vba
Range("a1").value=Format(Date,"yyyy/mm/dd")
End sub
حيث فى هذا المثال يتم ارجاع شكل التاريخ فى الخلية date vba format
الى الشكل التالى 1/1/2019
ملاحظة: لاستخدام الاكواد أعلاه ، افتح مصنفًا جديدا واضغط على Alt+ F11 لفتح محرر الاكواد Editor VB. او من خلال تبويب المطور (Developer) ثم أنشئ وحدة نمطية جديدة (موديول جديد ) والصقها فيها.