Добрый день форумчане, подскажите как исправить функцию, чтобы timestamp (количество миллисекунд с 1970 года) был не 10-значный, а 13-значный.
Вот функция
Код:
function DateTimeToStamp(DelphiTime : TDateTime): LongWord;
begin
Result := Round((DelphiTime - 25569) * 86400);
end;
Вот ее вызов
Код:
timestamp := inttostr(DateTimeToStamp(Now));
Получаем 1452314092. Нужно получить 1452334536851 (ну такое число встречается везде на сайтах где используется функция php - getTime()).
p.s. нужно результат php функцию getTime() подогнать к дельфи. Как ?