Ver Mensaje Individual
  #3  
Antiguo 01-06-2015
DANIEL1818 DANIEL1818 is offline
Miembro
NULL
 
Registrado: abr 2015
Posts: 42
Reputación: 0
DANIEL1818 Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
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!
Responder Con Cita