Function IncAno

Incrementa e retorna a data do parâmetro Data com a qunatidade de anos do parâmetro valor.


function IncAno(Data: TDate; Valor: integer):TDate;var A,M,D: Word;begin
       DecoDeDate(Data,A,M,D);
       A:=A+Valor;
       Result:=StrToDate(FormatFloat('00/',D)+FormatFloat('00/',M)+IntToStr(A));end;


Usando:
procedure TForm1.BitBtn27Click(Sender: TObject);begin
        ShowMessage('Ano : '+DateToStr(IncAno(StrToDate(Edit2.Text),1)));end;