[luisgutierrezb]

coincido con egostar, se ve raro el for pero bueno, para las horas en lugar de tanta conversion te podria servir:

Código Delphi [-]
Fecha1.DateTime  := Trunc(Fecha1.DateTime);
Fecha2.DateTime := Trunc(Fecha2.DateTime) + 0.99999; //son 5 nueves
//tambien puede funcionar:
Fecha2.DateTime := Trunc(Fecha2.DateTime) + 1; 
//aqui aumenta al otro dia pero como serian las 00:00:00 no incluye ese dia

algo que me pasa con ciertos manejadores de bases de datos es que al usar like no me toma el primero o el ultimo (access no me toma el ultimo), lo mas facil es agregar o quitar un dia segun lo que falte o usar <= y >= en lugar del like