Sentencia SQL

[emeritos]

Hola Dilferos.
Estoy utilizando el Delphi 7 y MyDac y necesito ayuda para emntender una sentencia de SQL.

En Delphi si ponenos Date() + 365, es decir la suma de una fecha y un entero el resultado, en este caso, es sumar a la fecha 365 dias (el entero), esto mismo quiero hacer en SQL y la sentencia que tengo es:

SELECT fecha
FROM fichero
WHERE fecha + 365 >= date()

Lo que no entiendo es que hace fecha + 365, por que no le suma esos dias a la fecha. ¿ Como lo puedo hacer?

Gracias.

[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.