EXCELer

Se pretendermos somar dias, meses e anos a uma determinada data, como no exemplo:



podemos utilizar uma UDF:

Public Function CalculaData(ByVal datDataInicial As Date, ByVal intAnos As _
Integer, ByVal intMeses As Integer, ByVal intDias As Integer) As Date

' Utilização da Função de VBA DateAdd()
' Soma Anos, Meses e Dias a uma determinada Data
' Exemplo da Função numa célula: Em A1: = =CalculaData("1-1-2006";0;5;11)
' Ou seja, soma 0 anos, 5 meses e 11 dias à data 1/1/2006 - Resultado: 12/06/2006
' Atenção: é preciso formatar a célula como Data!
    
    Dim datResult As Date
    
    datResult = DateAdd("yyyy", intAnos, datDataInicial)
    datResult = DateAdd("m", intMeses, datResult)
    datResult = DateAdd("d", intDias, datResult)
    CalculaData = datResult

End Function

Tópicos relacionados:

  Função DATEADD()

  Adicionar datas