Função Hour

Retorna um número inteiro entre 0 e 23, inclusive, representando a hora do dia.

Sintaxe

Hour(time)

Argumentos:

Time: Obrigatório. Qualquer expressão que possa representar uma hora.

Formatos de Data Suportados:

  • MM-DD-YYYY
  • MM/DD/YYYY
  • DD-MM-YYYY
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

Formato de Hora Suportado:

hh:mm:ss

Comentários

O exemplo a seguir usa a função Hour para obter a hora do horário atual:

Exemplo 1:

Dim MyTime, MyHour
MyTime = Now
MyHour = Hour(MyTime)
'Output: current hour.

Exemplo 2:

Dim MyTime, MyHour
MyTime = "14:30:00"    ' Specific time value.
MyHour = Hour(MyTime)  
'Output: 14

Exemplo 3:

Dim MyDateTime, MyHour
MyDateTime = "21/01/2025 18:45:00"    ' Date-Time value.
MyHour = Hour(MyDateTime)             
'Output: 18

Exemplo 4:

Dim MyDateTime, MyHour 
MyDateTime = DateAdd("h", 5, Now) 
MyHour = Hour(MyDateTime) 
'Output: If current time is 1 PM, then it returns 18