About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2006-06-12
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