الوظيفة VBA: Time

وصف

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

Time

دعنا نوفر الوقت الذي حصلت عليه الدالة Time في الخلية A1:

Sub TimeExample1()

    Range("A1") = Time
    
End Sub

عرض الوقت الذي تم الحصول عليه بواسطة الدالة Time بتنسيق نصي:

Sub TimeExample2()

    MsgBox Format(Time, "hh\hnn") 'العوائد ، على سبيل المثال: 13 س 24
    
End Sub

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

Sub TimeExample3()

    If Hour(Time) >= 17 Then
        MsgBox "انتهى اليوم تقريبا!"
    End If
    
End Sub

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