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