JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

كيفية استخدام الدالة VBA DATE في إكسل VBA


كيفية استخدام الدالة  VBA DATE في إكسل VBA



تشبة تمامًا مثل وظيفةالدالة  TODAY  فى ورقة العمل ،
حيث  تقوم الدالة 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
ملاحظة: لاستخدام الاكواد أعلاه ، افتح مصنفًا جديدا واضغط على AltF11 لفتح محرر الاكواد  Editor VB.  او من خلال تبويب المطور (Developer) ثم أنشئ وحدة نمطية جديدة (موديول جديد ) والصقها فيها.




الاسمبريد إلكترونيرسالة