Fecha y Hora
 

Una consulta.

Tengo un archivo de texto de la siguiente forma:

4224C692
4224C697
4224C69C
4224C69D
4224C6A8
4224C6F6
4224C9FE
4224CA7C
4224CA7E
4224D047
4224D049

Esto son numero en base 16, que representan la fecha y
hora. El problema es que esta de la sigueinte forma:

Numero de Segundos Transcurridos desde las 00:00 del
1-1-1970

Es decir debo sumar a las 00:00 del 1-1-1970 ese
numero?

Como puedo hacer esto en Delphi?. Como hago o
considero los años bisiestos
Me es necesario traducir estas lineas, pues alli estan
las marcaciones de los trabajadores (a que hora y
minuto marco de que año, mes y dia = AAMMDDHHMM)

Muchas Gracias.

Yo te recomiendo tratarlas como TDate, hacerte dos funciones convertir esos strings a TDate y viseversa, y luego hacer todos los cálculos utilizando las funciones que trae delphi para el trato de fechas.

Saludos!

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.

Fecha y Hora
 

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?

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:

Hasta luego.

;)

Gracias.
 

Maravilloso.

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

Gracias de nuevo

Atentamente,