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

Você pode usar a função DateSerial no VBA para retornar uma data para um dia, mês e ano específicos.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Esta macro específica retornará valores de data no intervalo D2:D13 usando os valores de ano na coluna C, os valores de mês na coluna B e os valores de dia na coluna A.

O exemplo a seguir mostra como usar a função DateSerial na prática.

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

Suponha que temos as seguintes colunas no Excel que exibem o dia, mês e ano para datas diferentes:

Suponha que queiramos exibir os valores de data na coluna D, usando os valores de dia, mês e ano em cada linha.

Podemos criar a seguinte macro para fazer isso:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

A coluna D exibe o valor da data resultante do uso dos valores de dia, mês e ano das colunas A, B e C, respectivamente.

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

Recursos adicionais

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

Como comparar datas em VBA
Como converter data em número da semana em VBA
Como calcular dias entre duas datas em VBA