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:

Código Delphi [-]
...
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.