UDF: Função CalculaData()

Eis uma Função UDF, para adicionar anos, meses e dias a uma determinada data:

 

'---------------------------------------------------------------------------------------
' Procedure : CalculaData
' Author    : JRod
' Date      : 01/12/2013
' Purpose   : Utilização da Função VBA DateAdd()
'           : Soma Anos, Meses e Dias a uma determinada Data
'           : Exemplo da Função numa célula: Em A1: =CalculaData("01-12-2013";5;1;24)
'           : Ou seja, soma 5 anos, 1 mês e 24 dias à data 01-12-2013. Resultado: 25-01-2019
'           : ATENÇÃO: É necessário formatar a célula como Data.
'---------------------------------------------------------------------------------------
'
Public Function CalculaData(ByVal datDataInicial As Date, ByVal intAnos As _
                Integer, ByVal intMeses As Integer, ByVal intDias As Integer) As Date

    Dim datResult As Date

    datResult = DateAdd("yyyy", intAnos, datDataInicial)
    datResult = DateAdd("m", intMeses, datResult)
    datResult = DateAdd("d", intDias, datResult)

    CalculaData = datResult

End Function