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.
