Error al calcular horas con MinutesBetween

[weke]

Buenos días,
me pasa algo muy curioso que no se si es por error al hacer el cálculo o es algo interno de delphi.

A partir de 2 horas, calculo la diferencia que hay entre ambas para mostrarlo por pantalla y por norma general lo hace de forma correcta pero en ocasiones no lo hace bien. Una de las horas que he detectado es cuando la hora de inicio es 07:00:00 y la de fin 11:00:00, esto tendría que devolver 4 horas y en realidad me está devolviendo 3.98 horas.

A continuación pongo el código en el que lo calculo por si hubiera algún error u otro modo de calcularlo.

Código Delphi [-]
            minutos := MinutesBetween(HoraInicio, HoraFin);
            horas := StrToFloat(FormatFloat('#0.00', (minutos / 60)));
            ShowMessage('Horas: ' + FloatToStr(horas)); // mostramos las horas de diferencia

Gracias de antemano y un saludo.

[ecfisa]

Hola.

Intentalo de este modo:

Código Delphi [-]
  minutos := MinutesBetween(HoraInicio, HoraFin);
  horas := Round(minutos/60);
  ShowMessage('Horas: ' + FloatToStr(horas));

Saludos.

[weke]

Buenas tardes,
gracias por la respuesta pero ya lo he solucionado. Al final he restado las 2 horas y a partir de esa hora he calculado las horas y minutos resultantes, necesito mostrar decimales para cuando no sean horas completas.

A continuación pongo el código fuente:

Código Delphi [-]
            DecodeTime((HoraFin - HoraInicio), horas, minutos, segundos, milisegundos);
            minutos_calculados := minutos / 60;
            horas_calculadas := horas;
            horas_calculadas := StrToFloat(FormatFloat('#0.00', (horas_calculadas + minutos_calculados)));

Un saludo.

[ContraVeneno]

MinutesBetween te cuenta solo los minutos completos.
MinuteSpan te cuenta los minutos completos y te manda los minutos incompletos como una fracción.

Tal vez podrías intentar con MinuteSpan... o hourspan, monthspan, yearspan, etc, etc.