Adicionar ano a uma Data em Delphi - Dica

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

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

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?