Perdonar la tardanza, estaba probando lo anterior
Código SQL
[-]
SQL.Add( ' WHERE fecha BETWEEN :FechaAyer AND :FechaManana' );
SQL.Add( ' AND DATE_FORMAT(hora, "%i:%s")="00:00"' );
SQL.Add( ' ORDER BY clave' );
ParamByName('FechaAyer').AsDateTime := EncodeDateTime(YearOf(FECHA-1), MonthOf(FECHA-1), DayOf(FECHA-1), 23, 0, 0, 0);
ParamByName('FechaManana').AsDateTime := EncodeDateTime(YearOf(FECHA+1), MonthOf(FECHA+1), DayOf(FECHA+1), 0, 0, 0, 0);
No funciona
, me coge los tres días enteros