Bucle While para Comprobar Fecha en Base de Datos

[Edwardfeliz]

Empezado por ecfisa

Hola.

Te adjunto un demo basado en el campo "saledate" del archivo orders de dbdemos.mdb (que viene con Delphi e incluyo) para que puedas analizarlo con tranquilidad.

Crea una carpeta y descomprimilo en ella para las pruebas.

Saludos

Edito: Como el archivo es muy antiguo modifiqué las últimas fechas para que fueran razonables con la fecha actual, podes hacer lo mismo sobre el DBGrid.

Estudie el ejemplo que me diste aun estoy perdido, observa el comportamiento, en el siguiente codigo:

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE DATEADD("d", IAS, SALEDATE) <= DATE()');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Resta a la fecha actual el contenido del edit y muestra las fechas de ahi hacia abajo.


en el siguiente:

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE DATEADD("d", IAS, SALEDATE) >= DATE()');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Resta a la fecha actual el contenido del edit y muestra las fechas de ahi hacia arriba.

y lo que yo quiero es que a la fecha actual(Ejemplo: 16/04/2014) y se le sume la cantidad del edit(ejemplo: 5) y muestre los registro que estén desde 16/04/2014 hasta 21/04/2014

Saludos.