¿Cuál es la relación de enteros por hora?
1 = 1 hora
60 = 1 hora
alguna otra
Una variable TDateTime es un número donde la parte entera son días y la parte decimal la parte del día
Por lo tanto, si 1 es 1 hora:
24 horas = 1 TDateTime
1 hora = 1/24 = 0.417 TDateTime
Código Delphi
[-]
var
Hora : integer;
aTime : TDateTime;
begin
Hora = 2;
aTime := (1/24) * Hora;
ShowMessage(TimeToStr(aTime))
end;