|
Despues de muchas vueltas y como Paradox no admite la inclusión de la sentencia Date dentro del SQL he logrado lo que quieres mediante una variable tipo texto incrustada en la sentencia SQL.
procedure TForm1.Button1Click(Sender: TObject);
Var
f:String;
begin
f:=FormatDateTime('mm/dd/yyyy',date);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Fecha,Fecven');
Query1.Sql.Add(',Fecven -'''+f+'''as dias');
Query1.Sql.Add('from Factura');
Query1.Open;
end;
Un Saludo.
|