Fecha y Hora

marcoszorrilla · #1 12-04-2005

Habrá que saber primero, si todo es un número o está divido en partes, si todo es un número tendrás que pasarlo a decimal y luego a partir de ahí obtener la fecha y hora.

Un Saludo.

anitra_cattivo · #2 12-04-2005

Me dicen que todo es un numero que representa la cantidad de Segundos transcurridos desde las 00:00 del 1-1-1970

Ejemplo:
4224F694 es a base 10 = 1109718676

Esto significa de que transcurrieron 1,109'718,676 segundos desde las 00:00 del 1-1-1970

Entonces en ese unico gran numero esta la Fecha y la Hora

Como puedo hacer?

jachguate · #3 12-04-2005

Dado que el TDateTime de delphi almacena también como un número la fecha transcurrida desde el 30/12/1899, podemos aprovecharnos de esto para hacer algo como:

Código Delphi [-]Function RareDateToTDateTime(aRareDate : String) : TDateTime;

Const
  DiasIncrementar = 25569;
  SegundosEnUnDia = 3600*24;

Var
  DateNum : Integer;

Begin
  DateNum := StrToInt('$' + aRareDate);
  Result := DateNum / SegundosEnUnDia + DiasIncrementar;
end;

Con esta sencilla función he podido comprobar que:

Código:

4224C692 => 01/03/2005 07:46:26 p.m.
4224C697 => 01/03/2005 07:46:31 p.m.
4224C69C => 01/03/2005 07:46:36 p.m.
4224C69D => 01/03/2005 07:46:37 p.m.
4224C6A8 => 01/03/2005 07:46:48 p.m.
4224C6F6 => 01/03/2005 07:48:06 p.m.
4224C9FE => 01/03/2005 08:01:02 p.m.
4224CA7C => 01/03/2005 08:03:08 p.m.
4224CA7E => 01/03/2005 08:03:10 p.m.
4224D047 => 01/03/2005 08:27:51 p.m.
4224D049 => 01/03/2005 08:27:53 p.m.

Hasta luego.

anitra_cattivo · #4 13-04-2005

Maravilloso.

Muchas Gracias amigo, ya se pudo modificar estos registros al formato actual.

Gracias de nuevo

Atentamente,