ترجع الدالة VBA Hour عددًا صحيحًا يتوافق مع ساعة التاريخ أو الوقت المحدد.
Hour (date_hour)
استخدام الدالة Hour للحصول على معلومات الوقت ذات الصلة:
Sub HourExample1()
myHour = #6:36:45 PM#
MsgBox Hour(myHour) 'العوائد: 18
End Sub
أو حسب التاريخ والوقت (لنفس النتيجة):
Sub HourExample2()
myDate = #10/31/2020 6:36:45 PM#
MsgBox Hour(myDate) 'العوائد: 18
End Sub
تقبل هذه الوظيفة أيضًا الوقت أو التاريخ مع الوقت بتنسيق نصي:
Sub HourExample3()
myDate = "31/10/2020 18:36:45"
MsgBox Hour(myDate) 'العوائد: 18
End Sub