Filtro de fecha vencida

[bitbow]

Código PHP:

procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > '+ NOW);
      IBQInformes.Open;
    end;
 end; 


Asi es como le hago yo :

Código PHP:

procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > "'+ DateToStr(Date) +'"');
      IBQInformes.Open;
    end;
 end; 


Debes concatenar tu consulta con el valor de Now, la verdad no he manejado Now y no se que tipo de datos devuelva si es Date , Time o combinado de cualquier forma debes de hacer la conversion del tipo de dato que te devuelva a String , para las fechas es DateToStr.

Por ahi en google anda un manual de las funciones de conversion , no recuerdo el enlace.