Как сформулировать Unix в Delphi?

Question

[Alex Alex]

Пользуюсь ф-цией

UnixStartDate: TDateTime = 25569.0;

function DateTimeToUnix(ConvDate: TDateTime): Longint;
begin
  Result := Round((ConvDate - UnixStartDate) * 86400);
end;

получаю : 1473978988
а нужно : 1470518278402

ShowMessage(inttostr(DateTimeToUnix(Now)));

так же выдает 10 цифр ,когда нужно 13

может кто подскажет ф-цию

Comments

[Saboteur]

Правильно будет не unix а unix timestamp.
Но IMHO у вас оно просто округляется до секунд, поэтому вы можете просто нули дописать.

[Alex Alex]

Saboteur: просто три нуля?

[Saboteur]

C:\>unix2win 1470518278402
Sun Aug 07 00:17:58 2016

C:\>unix2win 1473978988
Fri Sep 16 01:36:28 2016

Собственно, у вас правильно то, что вы получаете.

[Артем Килеев]

В модуле DateUtils есть DateTimeToUnix

[Alex Alex]

Артем Килеев: так же не хватает 3 ччисла

[Alex Alex]

Saboteur: мне нужно именно получить на 3 числа больше чем у меня

[Saboteur]

что значит на 3 числа больше? на 3 цифры длиннее? или на три дня вперед?
Короткая дата просто не будет учитывать милисекунды.

[Alex Alex]

Артем Килеев: ShowMessage(inttostr(DateTimeToUnix(Now))); выдает 10 цифр мне нужно 13

[Alex Alex]

Saboteur: ну мне нужно получить дату уникс из 13 символов у меня 10

[Saboteur]

Странно, почему на самом unix этот timestamp состоит из 10ти?
ubuntu:~$ date +%s
1473965142

13 это просто добавление миллисекунд, в каком-то редком формате. Стандарт - 10 символов.
Хотите 13 - просто добавьте 3 нуля в конце - это миллисекунды (их 1000 в секунде)

[Alex Alex]

Saboteur: нет 000 не помогуют ,отправляю файл в инстаграм нужно получить :
--cVPWxsPCz-jBHZ1gVZLvafeSXcX3Pt
Content-Disposition: form-data; name="upload_id"
Content-Type: text/plain

1470518278402
--cVPWxsPCz-jBHZ1gVZLvafeSXcX3Pt
Content-Disposition: form-data; name="photo"; filename="cMSe2Abl2UZnnUFWLKWv_tLhIbl4Mk.jpg"
Content-Type: application/octet-stream

а у меня выходит :
-------00001F02_boundary
Content-Disposition: form-data; name="upload_id"
Content-Type: text/plain

1473983409000
-------00001F02_boundary
Content-Disposition: form-data; name="photo"; filename="1292496785490762097_3182544435.jpg"
Content-Type: application/octet-stream

[Артем Килеев]

function DateTimeToUnix(ConvDate: TDateTime): Longint;
begin
Result := Round((ConvDate - UnixStartDate) * 86400000);
end;

[Артем Килеев]

Т.е. домножаете на 1000 до округления

[Alex Alex]

Артем Килеев: у меня UnixStartDate: TDateTime = 25569.0; , получается вообще не то

[Артем Килеев]

Захар Измайлов: У меня также. Надо еще учитывать, что функция Now() возвращает время в вашем часовом поясе, а Unix time должен быть в UTC

[Артем Килеев]

Какой результат получается при моем способе?

[Alex Alex]

Артем Килеев: s018.radikal.ru/i515/1609/fd/09b6fe3781df.jpg

[Артем Килеев]

При записи в Longint происходит переполнение. Надо использовать Int64

[Alex Alex]

Артем Килеев: спачибо , получилось

[Freeman]

Захар Измайлов: на самом деле всё зависит от версии Dephi. Скажем, в Delphi 2010 уже так:

function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
  Result := Round((AValue - UnixDateDelta) * SecsPerDay);
end;

Answer 1

[maximw]

DateUtils.MilliSecondsBetween(ConvDate, 0);