Sentencia SQL

[marcoszorrilla]

Me da la impresión que lo que está fallando es Date().

Código SQL [-]
SELECT fecha + 365 
FROM fichero

Creo que funcione, con esto confirmamos que el fallo está en Date, por ejemplo Paradox no admite el uso de Date como SQL que yo recuerde.

Pero si una variable que contenga la fecha.

Código Delphi [-]
Var
MiFecha:Tdate;
begin
MiFecha:=Date + 365;
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT fecha');
Query1.Sql.Add('FROM fichero');
Query1.Sql.Add('WHERE fecha + 365 >= '+ FormatDateTime('mm/dd/yyyy',MiFecha));
Query1.Open;
end;

Un Saludo.

[emeritos]

Realmente la sentencia es:

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT fecha');
Query1.Sql.Add('FROM fichero');
Query1.Sql.Add('WHERE fecha + 365 >= :afecha);
Query1.Sql.parameters('afecha').AsDate := date();
Query1.Open;

lo que sigue NO funcionando es fecha + 365 que creo que no suma el año.

Gracias.

[moz_an]

Buenos dias,
prueba esto:

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT fecha');
Query1.Sql.Add('FROM fichero');
Query1.Sql.Add('WHERE fecha>= :afecha);
Query1.Sql.parameters('afecha').AsDate := incyear(date,-1);
Query1.Open;

saludos.