Cabeçalho

YearSum

Autor: Eurai Criado: 01/01/2016 Atualizado: 26/04/2025 Data

Postagem

Descrição

YearSum - Soma Ano(s) a Data Informada.

Sintaxe

YearSum( <dDate> )

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	dDate	Date	Data que você deseja que seja somado Ano(s)		X
02	nYear	Numerico	Anos a serem somado

Retorno

Retorno	Tipo	Descrição
dRet	Date	Nova Data

Exemplo

#INCLUDE "TOTVS.CH"

User Function YearSum()

MsgInfo( 'Valor: ' + cValtoChar( Date() ) + CRLF + 'Retorno: ' + cValtoChar( YearSum( Date(), 3 ) ), 'UniversoADVPL' )

Return( Nil )

Resultado
yearsub_-_resultado_01