كيفية الحصول على التاريخ والوقت الحالي؟

في هذا البرنامج التعليمي، سوف نتعلم طرقًا مختلفة للحصول على تاريخ ووقت اليوم باستخدام كود VBA.

تاريخ اليوم في VBA

في VBA، توجد وظيفة تسمى ” DATE ” يمكنك استخدامها للحصول على التاريخ الحالي. عند استخدام هذه الوظيفة، تمامًا كما في المثال التالي، فإنها تقوم بإرجاع التاريخ الحالي استنادًا إلى إعداد تاريخ النظام.

 Sub myMacro() Range("A1") = Date End Sub

عند تشغيل هذا الرمز ، يقوم بإدخال التاريخ الحالي في الخلية A1 ويستخدم تنسيق التاريخ الحالي الموجود في Excel.

يمكنك أيضًا استخدام هذه الوظيفة للحصول على تاريخ اليوم في مربع رسالة ، تمامًا مثل الكود التالي.

 Sub myMacro() MsgBox Date End Sub

تاريخ اليوم والوقت الحالي

وبالمثل، هناك وظيفة تسمى ” NOW ” يمكنك استخدامها للحصول على تاريخ ووقت اليوم. كما ترون، استخدمنا ذلك في الكود التالي للحصول على التاريخ والوقت الحاليين في الخلية A1.

 Sub myMacro() Range("A1") = Now End Sub

الساعة الحالية

الآن إذا كنت تريد الحصول على الوقت الحالي فقط بدلاً من التاريخ والوقت، فأنت بحاجة إلى استخدام وظيفة أخرى “التنسيق” ( يمكنك قراءة المزيد عن هذه الوظيفة هنا ) جنبًا إلى جنب مع الوظيفة الآن.

في الكود أعلاه، استخدمنا الدالة now لتوفير قيمة دالة التنسيق ثم استخدمنا تنسيقًا للوقت فقط.

 Sub myMacro() Range("A1") = Format( Now , "HH:MM Am/Pm") End Sub

تغيير تنسيق تاريخ اليوم (مثال: YYYYMMDD)

يمكنك أيضًا استخدام وظيفة التنسيق لتغيير تنسيق التاريخ الحالي. في التعليمة البرمجية التالية، استخدمنا وظيفة التنسيق وحددنا التنسيق باسم “YYYYMMDD”.

 Sub myMacro() Range ("A1"). Value = Format ( Date , "YYYY/MM/DD") End Sub

ملحوظة: في الكود أعلاه، استخدمنا خاصية القيمة لإدخال التاريخ في الخلية A1.