[cyber]

Добрый день форумчане, подскажите как исправить функцию, чтобы timestamp (количество миллисекунд с 1970 года) был не 10-значный, а 13-значный.

Вот функция

Код:

1 2 3 4

function DateTimeToStamp(DelphiTime : TDateTime): LongWord; begin Result := Round((DelphiTime - 25569) * 86400); end;

Вот ее вызов

Код:

1	timestamp := inttostr(DateTimeToStamp(Now));

Получаем 1452314092. Нужно получить 1452334536851 (ну такое число встречается везде на сайтах где используется функция php - getTime()).

p.s. нужно результат php функцию getTime() подогнать к дельфи. Как ?