Como resto dias a una fecha

[Huer]

Hola amigos sabes que tengo una instrucción de como restar meses que esta: mifecha:=incMonth(Mifecha,-3);

pero no he podido descubrir para restarle solo 45 dias a un mes

Gracias de ante mano si me pueden asesorrar

[cso2000]

Vreo que lo que ocupas se hace asi


MiFecha := Mi Fecha - 45;


Saludos;

[delphi.com.ar]

var
  MiFecha : TDateTime;
begin
  MiFecha := MiFecha - 45; {Resta 45 días a la fecha}
end;

[Combat-F2D]

prueba con



var miFecha: TDateTime;

begin
mifecha:= Now;

Edit1.Text := DateToStr(miFecha - 3);

end;