Como subtrair dias de uma data em vba (com exemplo)

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

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

 Sub SubtractDays()

    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 subtrairá quatro dias de 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 subtrair dias de 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: subtrair dias da data em VBA

Suponha que temos a seguinte lista de datas no Excel:

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

Podemos criar a seguinte macro para fazer isso:

 Sub SubtractDays()

    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 com quatro dias subtraídos.

Sinta-se à vontade para alterar o valor numérico na função DateAdd para subtrair um número diferente de dias de 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