Hora en entero a hora en decimal.

[mamcx]

En terminos generales, es pesima idea hacer calculos manuales de fechas y horas. Es algo particularmente lleno de problemas, casos especiales y demas. Osea, usa datetime y las funciones hechas para operar sobre ellas.

p.D: Simpre me ha parecido increible que se "inventen" tipos de datos especiales en vez de usar los nativos del lenguaje/base de datos. Porque lo haces? Nunca he sabido de un verdadero argumento, y solo existe 1 caso donde es vagamente justificable: hacer un datamart/olap

[TiammatMX]

Empezado por mamcx

....y solo existe 1 caso donde es vagamente justificable...

... y falta el otro caso donde es plenamente justificable: Cuando así te lo ordena el que firma los cheques de pago...

[[Al González]]

Si quieres convertir 675 unidades minutos en la parte fraccionaria que representaría dentro de un TDateTime, basta con una simple regla de tres (que en realidad se reduce a una simple división):

     1 día                  X
------------------     -----------
MinsPerDay minutos     675 minutos

X = (675 * 1) / MinsPerDay = 675 / MinsPerDay = 0.46875 días

Sumas ese valor a la fecha entera y le estará dando las 11:15 AM a dicha fecha. La constante Delphi MinsPerDay (de la unidad SysUtils) tiene un valor de 1440 (cantidad de minutos en un día).

¿Pos pa' quién trabajas Felipe?

[TiammatMX]

Empezado por Al González

...¿Pos pa' quién trabajas Felipe? ...

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

[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.