Como usar a função Hora no VBA?

A função `Hora` em VBA (Visual Basic for Applications) é usada para extrair a parte da hora de um valor de data ou hora. Esta função retorna um valor inteiro que representa a hora de zero a 23.

Aqui está um exemplo básico de como usar a função `Hour` no VBA:

Sub ExemploUsoHora()
    Dim dataHoraAtual As Date
    Dim horaAtual As Integer
    
    ' Obtemos a data e hora atual
    dataHoraAtual = Now()
    
    ' Usamos a função Hour para extrair a hora
    horaAtual = Hour(dataHoraAtual)
    
    ' Exibimos a hora atual em uma caixa de mensagem
    MsgBox "A hora atual é: " & horaAtual
End Sub

Neste exemplo:

Usamos a função `Now()` para obter a data e hora atual do sistema.
Aplicamos a função `Hour` para extrair somente a parte da hora.
Exibimos a hora atual usando uma caixa de mensagem.

Caso queira extrair a hora de uma data específica que está armazenada em uma variável ou em uma célula de uma planilha, você só precisa substituir `dataHoraAtual` pela variável ou referência de célula correspondente.

Aqui está um exemplo de como você poderia usar a função `Hour` para extrair a hora de uma célula específica no Excel:

Sub ExemploHoraDePlanilha()
    Dim horaDaCelula As Integer
    Dim celula As Range
    
    ' Suponha que a data e hora estão na célula A1
    Set celula = ThisWorkbook.Sheets("Planilha1").Range("A1")
    
    ' Extrai a hora usando a função Hour
    horaDaCelula = Hour(celula.Value)
    
    ' Exibe a hora extraída
    MsgBox "A hora extraída da célula A1 é: " & horaDaCelula
End Sub

Neste segundo exemplo, estamos pegando um valor de data e hora da célula A1 de “Planilha1” e extraindo a parte da hora para exibi-la.

facebooklinkedin