Código Delphi [-] var aux : Double; begin aux := StrToInt('20'); //El parametro con los dias que quieras Query1.SQL.Add('Delete from MiTabla where fechaTupla< cast(:MiParametro)'); Query1.FieldbyName('MiParametro').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy', now-aux)); end;
var aux : Double; begin aux := StrToInt('20'); //El parametro con los dias que quieras Query1.SQL.Add('Delete from MiTabla where fechaTupla< cast(:MiParametro)'); Query1.FieldbyName('MiParametro').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy', now-aux)); end;