Converit un Variant en Hora:Minutos

[rocolza]

Buenas tardes

Me gustaria si alguien me puede ayudar ya que no se como transformar o que funcion utilizar para convertir un dato decimal en hora: minutos

Ejm

tengo Quiero
20.5 20 horas 30 min
2.90 2 horas 55 min

Gracias

[ecfisa]

Hola rocolza.

Como en el título preguntas como convertir un Variant a TTime y en el mensaje Double a TTime, te pongo un ejemplo que contempla los dos casos:

...
var
V: Variant;
T1,T2: TTime;
D: Double;
begin
V := Now;
D := Now;
T1 := VarToDateTime(V);
T2 := D;
ShowMessage(TimeToStr(T1) + #10#13 + TimeToStr(D));
...


Saludos.