Foros Club Delphi - Convertir Flotante a Hora

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Convertir Flotante a Hora (https://www.clubdelphi.com/foros/showthread.php?t=52305)

gilberto_1126

16-01-2008 21:03:39

Convertir Flotante a Hora

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

16-01-2008 21:24:39

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

enecumene

16-01-2008 21:44:15

Cita:

Empezado por felipe88 (Mensaje 258658)

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

16-01-2008 21:52:14

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

16-01-2008 22:23:29

Cita:

Empezado por enecumene (Mensaje 258666)

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

Saludos.

Te hubieras ariezgado...tendrias otro post :D

enecumene

17-01-2008 14:11:26

Cita:

Empezado por marcoszorrilla (Mensaje 258676)

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. :p

Saludos.

La franja horaria es GMT +2. Ahora son las 19:36:57.