Hola
Código Delphi
[-]
begin PONCHE1TBL.Active:=False;
PONCHE1TBL.Filtered:=False;
PONCHE1TBL.Filter:='ENTRADA_TRABAJO=1 AND FECHA='+QuotedStr(DateToStr(DateTimePicker1.Date));
PONCHE1TBL.Filtered:=True;
PONCHE1TBL.Active:=True;
StaticText14.Caption:='CANTIDAD DE PERSONAS PONCHADAS EN ENTRADA AL TRABAJO ==> '+IntToStr(PONCHE1TBL.RecordCount);
Sigo sin entender la segunda pregunta, el codigo lo veo bien.
Saludos