الوظيفة VBA: Date

وصف

ترجع الدالة VBA Date تاريخ النظام الحالي.

Date

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

Sub DateExample1()

    Range("A1") = Date
    
End Sub

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

Sub DateExample2()

    MsgBox Format(Date, "d mmmm yyyy") 'العوائد ، على سبيل المثال: 2 نوفمبر 2020
    
End Sub

سنقوم بتنفيذ الإجراء فقط إذا كان التاريخ الذي أرجع بواسطة الدالة Date يتوافق مع اليوم الأول من الشهر:

Sub DateExample3()

    If Day(Date) = 1 Then
        MsgBox "إنه أول يوم في الشهر!"
    End If
    
End Sub

الوظيفة التي تُرجع التاريخ الحالي بالإضافة إلى الوقت الحالي هي NOW وظيفة.