(Resolvido) Calculo com Data em Dias

[Nahim]

Amigos;

Tenho uma aplicação em Delphi6 com base Oracle 10g

Meu problema e simples.

Preciso retornar uma data anterior a data do dia apos passar o numero de dias pra retroagir o mesmo.

Exemplo: Data 17/06/2008 (Sysdate)

Dias 90 D (Dias pra retroagir a Data)

Data 20/03/2008 (Data Calculada resutado)

Simples ne?

alguém já realizou ou tem alguma funcao ou algo do tipo.

Agradço deste já Muito Obrigado

[Fábio Spies]

No meu Dephi6 ele faz automático assim:

Ex.:

datetimepicker1.date := now - 90;

[Jhonas]

ou usando outro componente do RX

DateEdit1.Date := now-90;

ou ainda de outra maneira

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;

  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Hoje é dia ' + IntToStr(Day) + ' do mes '
    + IntToStr(Month) + ' do Ano ' + IntToStr(Year);

  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'A hora é ' + IntToStr(Hour) + ':'+IntToStr(Min);

  Present:= Now-90;
  DecodeDate(Present, Year, Month, Day);
  Label3.Caption := '90 dias atraz é dia ' + IntToStr(Day) + ' do mes '
    + IntToStr(Month) + ' do Ano ' + IntToStr(Year);

end;

abraço

[Nahim]

Resolvi com o IncDay

do delphi deu certo valeu

Abraços