Convertir Flotante a Hora

[gilberto_1126]

Tengo un programa en donde guardo la informacion en un archivo de excel.

Mi pregunta es:

en las tablas guardo la hora en que se realizo cierta accion, solamente que esta hora se guardo como un valor flotante. ejemplo '39000.453216'.

Cuando quiero pasarlo a excel quiero pasar la hora '04:06:10 a.m.'

Como puedo hacer laconversion de flotante a time

Gracias

[felipe88]

y que pasa si le das FloatToStr y luego StrToDate... asi le das FormatDateTime... los has probado ?

[enecumene]

y que pasa si le das FloatToStr y luego StrToDate... asi le das FormatDateTime... los has probado ?

habia pensado en eso pero no se como se trataba de excel, desisti. :p

Saludos.

[marcoszorrilla]

Un ejemplo:

La parte decimal es la que contiene la hora:

procedure TForm1.Button1Click(Sender: TObject);
var
ni: Double;
d:TTime;
begin
ni:=39000.453216;
d:=Frac(ni);
ShowMessage(FormatDateTime('hh:mm:ss',d));
end;

Un Saludo.

[felipe88]

habia pensado en eso pero no se como se trataba de excel, desisti. :p

Saludos.

Te hubieras ariezgado...tendrias otro post :D

[enecumene]

Un ejemplo:

La parte decimal es la que contiene la hora:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)procedure TForm1.Button1Click(Sender: TObject);
var ni: Double; d:TTime; begin ni:=39000.453216; d:=Frac(ni); ShowMessage(FormatDateTime('hh:mm:ss',d));
en

d;

Un Saludo.

Otra cosa mas que me aprendo. :p

Saludos.