Como usar a função datevalue em vba (com exemplo)

Você pode usar a função DateValue no VBA para retornar o valor da data de uma determinada string.

Esta é uma maneira comum de usar esta função na prática:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Esta macro específica extrairá o valor da data de datas e horas no intervalo A2:A7 e retornará esse valor da data no intervalo correspondente de B2:B7 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar a função DateValue em VBA

Suponha que temos a seguinte coluna de data/hora no Excel:

Suponha que queiramos extrair a data de cada data e hora na coluna A e exibi-la na coluna B.

Podemos criar a seguinte macro para fazer isso:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna B exibe o valor de data para cada data e hora na coluna A.

Por exemplo:

• A função DateValue retorna 01/01/2023 de 01/01/2023 10:15:34
• A função DateValue retorna 03/01/2023 de 03/01/2023 12h34:18
• A função DateValue retorna 05/01/2023 de 05/01/2023 8:23:00

E assim por diante.

Nota : Você pode encontrar a documentação completa da função DateValue em VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: como comparar datas
VBA: Como obter o nome do mês a partir da data
VBA: Número maior que a data