Hora en entero a hora en decimal.

[TiammatMX]

Empezado por tiammat

Para alguien que en su momento consideró que manejar la hora como entero era mejor que usar TDateTime...

OK, resuelto el problema gracias a mi compadre AlGonzález. El código queda así:

Código Delphi [-]
function TformReporteArchivoClinico.RevisarHorario(dFecha: TDateTime;iHoraOut: integer): Integer;
begin
   RevisarHorario := HoursBetween(Trunc(DataSys.GetServerDate)+((GetSysMinute/60)/24),Trunc(dFecha)+((iHoraOut/60)/24));
end;

Muchas gracias por sus aportaciones.