[cyber]

Добрый день форумчане, подскажите как исправить функцию, чтобы 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() подогнать к дельфи. Как ?

[NumLock]

а секунды и миллисекунды не перепутаны?

[cyber]

прошу прощения, миллисекунды требуются

[NumLock]

так умножай на 86400000

[cyber]

Сообщение от NumLock

так умножай на 86400000

я сам не допер, спасибо тебе добрый человек

[cyber]

сегодня попробовал, не получается то, что нужно. Если умножать на 86400000 то получаем 910901120 вместо 1452334536851