Функція VBA Hour повертає ціле число, що відповідає годині вказаної дати чи часу.
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