As funcões abaixo foram criadas por Deivdy Do Carmo De Souza, usuário deivdysouza do site, para tirar tantos meses ou anos de uma data, sem mexer nos dias:

function TiraDias(data: tdatetime; menosdias: tdatetime): tdatetime;
begin
  result := strtodatetime(formatdatetime('dd/mm/yyyy', data - menosdias));
end;
 
//corrigida em 22/09/2010 por Kelver Merlotti: acrescentado o bloco repeat..until
function TiraMeses(data: tdatetime; menosmeses: integer): tdatetime;
var
  Y, M, D: integer;
  datacalc: string;
begin
  Y := strtoint(formatdatetime('yyyy', data));
  M := strtoint(formatdatetime('MM', data)) - menosmeses;
  repeat
    if M <= 0 then
    begin
      Y := Y - 1;
      if M < 0 then
        M := 12 + M
      else
        M := 12;
    end;
  until M > 0;
  D := strtoint(formatdatetime('DD', data));
  datacalc := inttostr(D) + '/' + inttostr(M) + '/' + inttostr(Y);
  result := strtodatetime(datacalc);
end;
 
function TiraAnos(data: tdatetime; menosanos: integer): tdatetime;
var
  Y, M, D: integer;
  datacalc: string;
begin
  Y := strtoint(formatdatetime('yyyy', data)) - menosanos;
  M := strtoint(formatdatetime('MM', data));
  D := strtoint(formatdatetime('DD', data));
  datacalc := inttostr(D) + '/' + inttostr(M) + '/' + inttostr(Y);
  result := strtodatetime(datacalc);
end;

Segue abaixo um exemplo de uso, no evento onClick de um botão:

procedure TForm1.Button1Click(Sender: TObject);
var
  dthr: TDateTime;
begin
  dthr := Date;
  ShowMessage(DateTimeToStr(dthr));
  dthr := TiraMeses(dthr, 4);
  ShowMessage(DateTimeToStr(dthr));
  dthr := TiraAnos(dthr, 3);
  ShowMessage(DateTimeToStr(dthr));
end;

Por: Deivdy Do Carmo De Souza (deivdysouza)
Contato: deivdysouza@gmail.com

Dica do Editor

Veja também esta outra dica publicada no site pelo usuário edusorio, com mais funções e caminhos alternativos para trabalhar com datas: Funções para manipulação de datas

Kelver Merlotti - Coordenador Editorial
Contato: kelver@activedelphi.com.br