Fecha y Hora

[jachguate]

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:

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.