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]]

Empezado por felipe88

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.

Saludos.

[marcoszorrilla]

Un ejemplo:

La parte decimal es la que contiene la hora:

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

[[felipe88]]

Empezado por enecumene

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

Saludos.

Te hubieras ariezgado...tendrias otro post

[[enecumene]]

Empezado por marcoszorrilla

Un ejemplo:

La parte decimal es la que contiene la hora:

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

Saludos.