Ayuda con DateTimePicker

[Luis F. Orjuela]

Lo primero que se debe tener en cuenta es lo siguiente:

Tus variables Finicial y Ffinal son del tipo Tdatetime, este tipo de variable almacena tanto la fecha como la hora.

Por otro lado se debe saber de qué tipo es tu campo de la tabla "Fecha_Captura", es decir, de qué tipo de dato lo definiste, para así poder identificar en dónde está el error.

Por cierto, cuando vayas a escribir fragmentos de código, utiliza las etiquetas

Código Delphi [-]
 ..... tu código......

Para así poder interpretar mejor el problema.

Cordialmente

[Luis Felix]

Gracias Luis, el campo Fecha_Captura esta definido como Date "D" en la tabla.

[Luis Felix]

Ayuda........

[ecfisa]

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.