Como resto dias a una fecha
 

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

Vreo que lo que ocupas se hace asi


MiFecha := Mi Fecha - 45;


Saludos;

prueba con



var miFecha: TDateTime;

begin
mifecha:= Now;

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

end;