Hora entre horas

[roman]

Creo que no todas las versiones de Delphi traen esas funciones (no la veo en Delphi 7, al menos). En todo caso, siguiendo los pasos de maese Casimiro, podríamos usar esta versión simplificada:

Código Delphi [-]
function TimeInRange(ATime: TTime; AStartTime, AEndTime: TTime): Boolean;
begin
  Result := (Frac(AStartTime) <= Frac(ATime)) and (Frac(ATime) <= Frac(AEndTime));
end;

LineComment Saludos