Cita:
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.