الوظيفة VBA: Now

وصف

ترجع الدالة VBA Now تاريخ النظام الحالي ووقته.

بناء الجملة Now

Now

مثال VBA Now

لنقم بتخزين التاريخ الذي تم إرجاعه بواسطة الدالة Now في الخلية A1:

Sub NowExample1()

    Range("A1") = Now
    
End Sub

دعنا نعرض التاريخ الذي تم إرجاعه بواسطة الدالة Now بتنسيق نصي:

Sub NowExample2()

    MsgBox Format(Now, "d mmmm yyyy hh:nn") 'العوائد ، على سبيل المثال: 2 تشرين الثاني (نوفمبر) 2020 ، الساعة 1:08 مساءً
    
End Sub

سنقوم بتنفيذ الإجراء فقط إذا كانت الساعة 17:00 وأحد أيام الأسبوع على الأقل:

Sub NowExample3()

    If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
        MsgBox "يوم العمل قد انتهى تقريبا!"
    End If
    
End Sub