Ver Mensaje Individual
  #5  
Antiguo 08-10-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Luis.

Aunque hace mucho que no uso paradox, probé tu código con la tabla employee.db de DBDEMOS,
reemplazando el campo 'Fecha_Captura' lógicamente... y realiza perfectamente el filtrado.
Sólo saque el encomillado, que por lo menos a mí me marea, usando QuotedStr en su lugar.

Te pongo el código de prueba:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Finicial:Tdatetime;
  Ffinal:Tdatetime;
  Cadena1, Cadena2:String;
  Year,Mes,Dia:word;
begin
  Table1.filtered:= False;
  Finicial:= DateTimePicker1.date;
  Ffinal:= DateTimePicker2.date;
  DecodeDate(Finicial, Year, Mes, Dia);
  if (Mes<10)then
     cadena1:= IntToStr(Dia)+'/0'+IntToStr(Mes)+'/'+IntToStr(Year)
  else
    cadena1:= IntToStr(Dia)+'/'+IntToStr(Mes)+'/'+IntToStr(Year);
  DecodeDate (Ffinal, Year, Mes, Dia);
  if (Mes<10)then
   cadena2:= IntToStr(Dia)+'/0'+IntToStr(Mes)+'/'+IntToStr(Year)
  else
    cadena2:= IntToStr(Dia)+'/'+IntToStr(Mes)+'/'+IntToStr(Year);
  Table1.Filter:=('HireDate>='+QuotedStr(cadena1)+
    'and HireDate<='+QuotedStr(cadena2));
  Table1.Filtered:=True;
end;

Saludos.

Edito: Prueba en Delphi 7.

Última edición por ecfisa fecha: 08-10-2010 a las 23:23:27.
Responder Con Cita