[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

[Bargest]

Если при умножении на 86400 получал 1452314092, то при умножении еще на тысячу (чем и является умножение на 86400 000) по определению получишь то же самое, но с тремя цифрами на конце. Невозможно получить такой операцией число меньшей длины. Кроме случая с переполнением, конечно, потому что это число (910901120) явно меньше максимума, которое влезает в integer/dword, а 1452334536851 - больше.
Почему так? А потому что:

Тип LongWord - целые числа, имеющие положительные значения до 4294967295. Он занимает 32 бита памяти.

[cyber]

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

Если при умножении на 86400 получал 1452314092, то при умножении еще на тысячу (чем и является умножение на 86400 000) по определению получишь то же самое, но с тремя цифрами на конце. Невозможно получить такой операцией число меньшей длины. Кроме случая с переполнением, конечно, потому что это число (910901120) явно меньше максимума, которое влезает в integer/dword, а 1452334536851 - больше.
Почему так? А потому что:

Спасибо за подсказку, исправил на Int64 и все ок работает