Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   pasar milisegundos a formato de fecha (https://www.clubdelphi.com/foros/showthread.php?t=44705)

emeceuy 13-06-2007 00:41:51

pasar milisegundos a formato de fecha
 
hola a todos amigos...

es una pregunta bastante sencilla creo, pero busqué en el foro y en internet y no consegui respuesta:

tengo una base de datos, en un campo se guarda el timestamp, como un entero (en milisegundos)... necesito convertir ese entero en tiempo con formato (dia/mes/año, HH:mm:ss.z) y no logro hacerlo !

como hago para convertir ese entero en formato de fecha? luego el formato se lo doy yo...

muchas gracias ! ;)

seoane 13-06-2007 01:43:36

Bueno, teniendo en cuenta que una variable de timpo TDateTime lo que almacena son dias trasncurridos a partir de una fecha, podriamos hacer algo asi:
Código Delphi [-]
function msToDateTime(ms: int64): TDateTime;
begin
  Result:= ms / (1000*60*60*24);
end;
Aunque ambos pueden empezar a contar desde momentos diferentes así que puede que tengas que hacer algo como esto:
Código Delphi [-]
function msToDateTime(ms: int64): TDateTime;
begin
  Result:= Correcion + (ms / (1000*60*60*24));
end;
Donde corrección es una fecha que puedes averiguar fácilmente sabiendo la fecha a la que corresponde un cierto número de milisegundos.


La franja horaria es GMT +2. Ahora son las 14:07:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi