La funzione VBA Hour restituisce un numero intero corrispondente all'ora della data o dell'ora specificata.
Hour(data_ora)
Utilizzando la funzione Hour per ottenere le informazioni sull'ora rilevanti:
Sub HourExample1() myHour = #6:36:45 PM# MsgBox Hour(myHour) 'Resi: 18 End Sub
Oppure per data e ora (per lo stesso risultato):
Sub HourExample2() myDate = #10/31/2020 6:36:45 PM# MsgBox Hour(myDate) 'Resi: 18 End Sub
Questa funzione accetta anche un'ora o una data con l'ora in formato testo:
Sub HourExample3() myDate = "31/10/2020 18:36:45" MsgBox Hour(myDate) 'Resi: 18 End Sub