Функция VBA Hour возвращает целое число, которое соответствует времени указанной даты или времени.
Hour(дата_час)
Использование функции Hour для получения соответствующей информации о времени:
Sub exemple() monHeure = #6:36:45 PM# MsgBox Hour(monHeure) 'Возвращает: 18 End Sub
Или по дате и времени (для одинакового результата):
Sub exemple() maDate = #10/31/2020 6:36:45 PM# MsgBox Hour(maDate) 'Возвращает: 18 End Sub
Эта функция также принимает даты и время в текстовом формате:
Sub exemple() maDate = "31/10/2020 18:36:45" MsgBox Hour(maDate) 'Возвращает: 18 End Sub