Filtrado en Sql por fechas

[[AgustinOrtu]]

A ver si esto te orienta:

Código Delphi [-]

implementation

uses 
  DateUtils; 

[...]

procedure TForm1.Button1Click(Sender: TObject);
var
  FFecha, FFechaSeleccionada: TDate;

  function MismaFecha(const DateA, DateB: TDate): boolean;
  begin
    // si es la misma fecha -> devuelve True; False en caso contrario
    Result := CompareDate(FFecha, FFechaSeleccionada) = 0;
  end;

begin
  FFecha := EncodeDate(2000, 1, 1); // FFecha = 01/01/2000
  FFechaSeleccionada := Form1.DateTimePicker1FechaDesde.Date;

  if not(MismaFecha(FFecha, FFechaSeleccionada)) then
    // hacer algo
end;

Saludos

[DANIEL1818]

Empezado por AgustinOrtu

A ver si esto te orienta:

Código Delphi [-]
implementation

uses 
  DateUtils; 

[...]

procedure TForm1.Button1Click(Sender: TObject);
var
  FFecha, FFechaSeleccionada: TDate;

  function MismaFecha(const DateA, DateB: TDate): boolean;
  begin
    // si es la misma fecha -> devuelve True; False en caso contrario
    Result := CompareDate(FFecha, FFechaSeleccionada) = 0;
  end;

begin
  FFecha := EncodeDate(2000, 1, 1); // FFecha = 01/01/2000
  FFechaSeleccionada := Form1.DateTimePicker1FechaDesde.Date;

  if not(MismaFecha(FFecha, FFechaSeleccionada)) then
    // hacer algo
end;

Saludos

Muchas gracias! Pero sigo teniendo el problema cuando las fechas son iguales,me sigue filtrando el producto y no debería. POR EJEMPLO: hago la búsqueda de un producto sin cambiar la fecha, y no me realiza el filtrado (hasta ahí todo bien) , luego cambio la fecha y me realiza el filtrado correspondiente (sigue todo bien), ahora el problema se presenta cuando vuelvo a la fecha predefinida 1/1/2000 me sigue filtrando el producto y no debería. Me podrías dar una mano con eso? Y como seria a la inversa? osea si le saco el "not" al if me pasa lo mismo me sigue filtrando los productos y no debería. Muchisimas gracias de antemano y por brindarme tu tiempo!

[[AgustinOrtu]]

Esta vez no te entendi bien

Podes copiarnos el codigo completo para ver como filtras?

Yo tuve ciertos "problemas" a la hora de usar fechas, concretamente con ADO + MS SQL Server 2005 y 2008; eso por usar TDate desde Delphi y tipo Fecha en el campo de la bd. Desde entonces siempre almaceno Fecha/Hora y desde Delphi utilizo TDateTime, indicando explicitamente la Hora. En tu caso por ejemplo el valor completo seria 01-01-2000 00:00:00 (por ejemplo)

Sobre todo en los desde/hasta, termine haciendo esto:

Código Delphi [-]
procedure ListaVentas: TDataSet;
var
  Desde, Hasta: TDateTime
begin
  // alternativa 1
  Desde := DateTimePicker1.DateTime - TimeOf(DateTimePicker1.DateTime);
  // alternativa 2, mas sana y legible a mi parecer
  Hasta := DateTimePicker2.DateTime;
  Hasta := EncodeDateTime(YearOf(Hasta), MonthOf(Hasta), DayOf(Hasta), 0, 0, 0, 0);
  with TADOQuery.Create(NIL) do
  begin
    Connection := DataModule.MainConnection;
    SQL.Text := ' SELECT * From Ventas WHERE Fecha BETWEEN :FDesde AND :FHasta ';
    with Parameters do
    begin
      ParamByName('FDesde').DataType := ftDateTime;
      ParamByName('FHasta ').DataType := ftDateTime; 

      ParamByName('FDesde').Value:= Desde;
      ParamByName('FHasta ').Value:= Hasta; 
    end;
    Open;   
  end; 
end;

A ver si te sirve!

[DANIEL1818]

Empezado por AgustinOrtu

Esta vez no te entendi bien

Podes copiarnos el codigo completo para ver como filtras?

Yo tuve ciertos "problemas" a la hora de usar fechas, concretamente con ADO + MS SQL Server 2005 y 2008; eso por usar TDate desde Delphi y tipo Fecha en el campo de la bd. Desde entonces siempre almaceno Fecha/Hora y desde Delphi utilizo TDateTime, indicando explicitamente la Hora. En tu caso por ejemplo el valor completo seria 01-01-2000 00:00:00 (por ejemplo)

Sobre todo en los desde/hasta, termine haciendo esto:

Código Delphi [-]
procedure ListaVentas: TDataSet;
var
  Desde, Hasta: TDateTime
begin
  // alternativa 1
  Desde := DateTimePicker1.DateTime - TimeOf(DateTimePicker1.DateTime);
  // alternativa 2, mas sana y legible a mi parecer
  Hasta := DateTimePicker2.DateTime;
  Hasta := EncodeDateTime(YearOf(Hasta), MonthOf(Hasta), DayOf(Hasta), 0, 0, 0, 0);
  with TADOQuery.Create(NIL) do
  begin
    Connection := DataModule.MainConnection;
    SQL.Text := ' SELECT * From Ventas WHERE Fecha BETWEEN :FDesde AND :FHasta ';
    with Parameters do
    begin
      ParamByName('FDesde').DataType := ftDateTime;
      ParamByName('FHasta ').DataType := ftDateTime; 
      ParamByName('FDesde').Value:= Desde;
      ParamByName('FHasta ').Value:= Hasta; 
    end;
    Open;   
  end; 
end;

A ver si te sirve!

Mi pedazo de codigo de la condicion es asi (tambien tengo un combo box con categorias de productos):

Código Delphi [-]
  if(Form1.Edit1.Text <> ' ') and (Form1.ComboBox1.ItemIndex = -1) and 
    ((CompareDate(EncodeDate(2000, 1, 1), Form1.DateTimePicker2FechasHasta.Date) = 0 )  then 
  begin
     DM.Query_soloTitulo.Close;
     DM.ds_queryCategorias.DataSet:=DM.Query_soloTitulo;   //realizo enganche con otra Query
     DM.Query_soloTitulo.Parameters.ParamByName('elString').Value:=Form1.Edit1.Text;
     DM.Query_soloTitulo.Open;
  end ;

la idea es que si NO cambia la fecha que realice el filtrado en este caso. Pero cuando cambio la fecha dede el DateTimePicker2FechasHasta sigue realizandome el filtrado, y no deberia. Ojala se haya entendido mejor. (solo chequeo si cambia o no la fecha del DateTimePicker para acceder o no al if)

[Casimiro Noteví]

En la tabla, el campo fecha es del tipo fecha, se supone.

[[AgustinOrtu]]

Bien, ahora si entendi cual es tu problema

La funcion CompareDate recibe dos parametros: FechaA y FechaB, y devuelve un entero que puede ser:
0 --> Quiere decir que FechaA = FechaB
1 --> Quiere decir que FechaA > FechaB
-1 --> Quiere decir que FechaA < FechaB

Aca mas info (en ingles)

Osea que en tu caso el if deberia ser

Código Delphi [-]
if CompareDate(EncodeDate(2000, 1, 1), Form1.DateTimePicker2FechasHasta.Date) <> 0 then
  ShowMessage('Las fechas son distintas')
else
  ShowMessage('Las fechas son iguales')