comparar 1 fecha contra la actual

[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

[Patricio]

listo gente como no estaba en la ayuda lo del extract no lo probe, pero buscando en otros foros es con esa funcion. Por ejemplo para tomar el dia...
select extract(day from fnacimiento)
Saludos

[amadis]

Existe alguna forma de hacer un Extract WEEK para comparar la fecha y por ejemplo obtener lso vencimientos de esta semana?