Adicionar ano a uma Data em Delphi - Dica

Veja nesta dica como adicionar ano a uma determinada data com Delphi.

Olá galera, nesta dica irei mostrar uma função para adicionar um numero determinado de anos a uma data.

 

Vamos cariar a seguinte função

 

function TFrmPrincipal.IncYear(const DateTime: TDateTime; NumberOfYear: Integer

var

  Year, Month, Day: Word;

begin

  DecodeDate(DateTime, Year, Month, Day);

  Year := Year + NumberOfYear;

  Result := EncodeDate(Year, Month, Day);

  ReplaceTime(Result, DateTime);

end;

end.

 

Usando a função

 

procedure TFrmPrincipal.BtnValidarClick(Sender: TObject);

begin

DateTimePicker1.Date :=

IncYear(DateTimePicker1.Date, 1);

 

end;

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br

Artigos relacionados