comparar 1 fecha contra la actual

[marcoszorrilla]

Pues creo que con la idea que te da Hector y el cambio "Paradoxiano", que propongo yo lo resuelvas.

Pero estoy intrigado, porque quieres comparar la fecha de esta manera y porque Now y no Date, en cualquier caso Paradox no admite ninguno de las dos expresiones, así que tendras que guardar antes de utilizar en el SQL el resultado de Date o Now en una variable y luego utilizar ésta en tu SQL.

Un Saludo.

[ContraVeneno]

o hacerlo con la función formatdatetime desde delphi antes de guardarlo en paradox....

[amadis]

NO se cuales son las diferencias de date y now a simplevist me parecieron iguales y use now porque si nomás.

Y si lo tengo almacenado en una variable que luego pasa a ser un param dentro del query.

Lo que necesito es y estoy haciendo es un programa que controle vencimietos cada vez que inicia controla todo lo que vence HOY sin importar el año de inicio del servicio ni que año es hoy. Simplemente me interesa saber que personas tienen vencimiento HOY (DIA/MES).

Desde ya Gracias mañana les cuento como me fue!

[marcoszorrilla]

Para terminar con la última pregunta que haces, Date.- Devuelve la fecha del sistema y Now devuelve la fecha y la hora del sistema.

Un Saludo.

[amadis]

Gracias por la aclaracion de Now y Date!

Respecto de todo lo anterior me da TYME MISMATCH ERROR IN EXPRESSION como si se trataran de tipos de datos distintos...

aqui les dejo el codigo SQL para que lo miren

En la base de datos CLIENTES tengo campos con todos los datos de una persona, CODCLI, NOMBRE, FECHA (que es la fecha de suscripcion y vence cada año) y eso es lo que quiero controlar.

Código SQL [-]
sql_vence.Active := False;

sql_vence.SQL.Clear;
sql_vence.Params.CreateParam(ftDate, 'hoy', ptInput);

sql_vence.ParamByName('hoy').AsDate := DATE;
sql_vence.SQL.Append('Select codcli from clientes');
sql_vence.SQL.Append('WHERE (EXTRACT(Month FROM fecha)) =  (EXTRACT(Month FROM :hoy))');
sql_vence.SQL.Append(' AND  (EXTRACT(Day FROM fecha)) =  (EXTRACT(Day FROM :hoy))');

sql_vence.Active := true;

[marcoszorrilla]

Código Delphi [-]
var
 MiFecha:TDate;
 begin
 MiFecha:=Date;
 
 sql_vence.Active := False;
 
 sql_vence.SQL.Clear;
 sql_vence.Params.CreateParam(ftDate, 'hoy', ptInput);
 
 sql_vence.ParamByName('hoy').AsDate := MiFecha;
 sql_vence.SQL.Append('Select codcli from clientes');
 sql_vence.SQL.Append('WHERE (EXTRACT(Month FROM fecha)) =  (EXTRACT(Month FROM :hoy))');
 sql_vence.SQL.Append(' AND  (EXTRACT(Day FROM fecha)) =  (EXTRACT(Day FROM :hoy))');
 
 sql_vence.Active := true;
 
 end;

Prueba con este cambio ya que Paradox no reconoce la sentencia Date en su SQL.

Un Saludo.

[Patricio]

Hola quisiera preguntarles si alguno sabe como hacer la consulta comparando el dia/mes de un campo TimesTamp de Interbase6 con el dia/mes actual.

Muchas Gracias