JSON - Retorno de campo data

Question

Estou acessando um webservice que foi desenvolvido em C# que retorna uma string no formato json. Nesta string tem um campo data que vem no seguinte formato:/Date(1373252400000)/Como eu converto e...

Alvaro Maia · Answer

Encontrei na web a seguinte fun��o que aparentemente est� resolvendo meu problema:

function JavaToDelphiDateTime(const dt: int64): TDateTime;
var
t: TSystemTime;
begin
DateTimeToSystemTime(25569 + (dt / 86400000), t);
SystemTimeToTzSpecificLocalTime(nil, t, t);
Result := SystemTimeToDateTime(t);
end;

A chamada fica assim:

procedure converteData(dataStr: string);
var
data: TDateTime;
begin
Delete(dataStr,Length(dataStr)-1,2);
Delete(dataStr,1,6);
data := JavaToDelphiDateTime(StrToInt64(dataStr));
...

N�o entendi direito o uso da constantes 25569 na fun��o JavaToDelphiDateTime.

F�rum JSON - Retorno de campo data #448198