Como adicionar dias a hoje em vba (com exemplos)

Você pode usar a função DateAdd no VBA para adicionar um número específico de dias a uma data.

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

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

Esta macro específica adicionará quatro dias a cada data no intervalo A2:A10 e exibirá as novas datas no intervalo B2:B10 .

Observe que o argumento “d” na função DateAdd especifica que queremos adicionar dias às datas em vez de outra unidade de tempo.

Consulte a página de documentação do VBA para obter uma lista completa de unidades que você pode usar na função DateAdd .

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

Exemplo: Adicione dias a este dia no VBA

Suponha que temos a seguinte lista de datas no Excel:

Suponha que queiramos adicionar quatro dias a cada data e exibir as novas datas na coluna B.

Podemos criar a seguinte macro para fazer isso:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

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

Observe que a coluna B contém cada uma das datas da coluna A mais quatro dias.

Sinta-se à vontade para alterar o valor numérico na função DateAdd para adicionar um número diferente de dias a cada data.

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

Recursos adicionais

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

Como comparar datas em VBA
Como converter string para data em VBA
Como calcular dias entre duas datas em VBA