VBA اليوم | كيفية استخدام دالة التاريخ في VBA للبحث عن تاريخ اليوم؟

وظيفة اليوم VBA

اليوم يعني التاريخ الحالي ، في ورقة العمل تعمل وظيفة Now بنفس الشيء الذي يعطينا التاريخ والوقت الحاليين ولكن لا توجد وظيفة اليوم يحمل في ثناياه عوامل في VBA نفسه ، وطريقة الحصول على التاريخ الحالي للنظام هي باستخدام وظيفة التاريخ و على عكس وظيفة تاريخ الوظيفة الآن فقط تعطينا التاريخ الحالي.

في برنامج Excel ، لدينا العديد من الوظائف المفيدة التي يمكن أن تساعدنا يوميًا. جعل Excel حياتنا كلها سهلة في مكان العمل. عندما أقول "يوميًا" يحتوي برنامج Excel على صيغة لإرجاع تاريخ اليوم أيضًا ، وليس التاريخ فقط ، يمكننا أيضًا الحصول على التاريخ والوقت الحاليين معًا. هذه هي مجموعة متنوعة من صيغ Excel. إذا كنت مستخدمًا منتظمًا لبرنامج Excel ، آمل أن تكون قد صادفت الصيغة المسماة "TODAY" في Excel لإدراج التاريخ الحالي كما يظهر في جهاز الكمبيوتر الذي يعمل لديك. لكن ليس لدينا وظيفة TODAY في VBA ، فكيف نحصل على تاريخ TODAY من VBA. ستوضح لك هذه المقالة كيفية العمل مع تاريخ TODAY في VBA. واصل القراءة.

ما هي الصيغة للحصول على تاريخ اليوم في VBA؟

إذا لم تكن هناك صيغة تسمى TODAY ، فكيف نحصل على تاريخ اليوم من VBA؟ هذا هو السؤال الشائع الذي يطرحه الجميع ولكن الحل بسيط لدينا صيغة باسم مختلف مثل دالة DATE.

ما وظيفة التاريخ التي تعمل في VBA؟

DATE هو بالضبط نفس وظيفة VBA TODAY ولكن هذه ليست وظيفة متغيرة إلا إذا قمت بتشغيل الماكرو أو تشغيل الماكرو.

لا يحتوي بناء جملة الدالة DATE على أي وسيطات نحتاجها فقط لتمرير الوظيفة DATE هذا كل شيء.

تاريخ ()

أمثلة على دالة التاريخ في VBA

DATE لإرجاع التاريخ الحالي للنظام. هذا مفيد للغاية عندما نستخدم هذا كجزء من مشروع VBA الكبير. للحصول على معرفة عادلة بهذا أولاً سأعرض لك أمثلة بسيطة لوظيفة التاريخ.

مثال 1

لنقم بإنشاء وظيفة DATE بسيطة لإظهار التاريخ الحالي في مربع الرسالة. اتبع الخطوات أدناه لكتابة ماكرو excel.

الخطوة 1: إنشاء إجراء فرعي عن طريق تسمية الماكرو.

الخطوة 2: قم بتعريف المتغير على أنه "تاريخ". ترجع الدالة DATE النتيجة كتاريخ فقط ، لذا يجب أن يكون نوع البيانات المتغير "التاريخ".

رمز:

 Sub Today_Example1 () Dim K As String End Sub 

الخطوة 3: قم بتعيين القيمة إلى المتغير "k" كوظيفة DATE .

رمز:

 Sub Today_Example1 () Dim K كسلسلة K = تاريخ انتهاء Sub 

الخطوة 4: الآن قيمة المتغير "k" في مربع الرسالة في VBA .

رمز:

 Sub Today_Example1 () Dim K كسلسلة K = تاريخ MagBox K End Sub 

قم بتشغيل الكود يجب أن نرى التاريخ الحالي كما هو موضح في النظام.

ملاحظة: قد يختلف تنسيق التاريخ بناءً على إعدادات النظام. يمكن أن يكون في "mm-dd-yy" ، "dd-mm-yy".

دالة التاريخ للعثور على الاستحقاق هي اليوم

تعد وظيفة التاريخ أكثر فائدة في سياق العثور على تواريخ استحقاق EMI ، ودفع بطاقة الائتمان ، ومدفوعات التأمين ، وما إلى ذلك ...

افترض أنك تعمل كمسؤول استرداد قرض ولديك قائمة عملاء بالمبلغ المستحق وتاريخ الاستحقاق.

في عمود الحالة ، تحتاج إلى النتيجة كـ "تاريخ الاستحقاق هو اليوم" إذا كان تاريخ الاستحقاق مساويًا لتاريخ النظام الحالي.

يمكن القيام بذلك باستخدام شرط IF والحلقات في VBA. يوجد أدناه الرمز الجاهز للوصول إلى النتائج.

رمز:

 Sub Today_Example2 () Dim K كعدد صحيح لـ K = 2 إلى 11 If Cells (K، 3) .Value = Date ثم Cells (K، 4) .Value = "Due is on Today" (K، 4) .Value = "ليس اليوم" ينتهي إذا كان التالي K End Sub 

سيصل هذا إلى النتائج في عمود الحالة.

مثل هذا في العديد من السيناريوهات ، يمكننا استخدام وظيفة DATE للتحقق من التواريخ وتنفيذ نوع من الإجراءات.

يمكنك تنزيل وظيفة VBA Today هذه هنا. قالب Excel الخاص بوظيفة VBA Today