06.06.2021, 03:17
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Не знаю, что то ты где то накосячил. Вот живой пример на Delphi 10.2:
Код:
uses
DateUtils;
function UNIXTimeInMilliseconds: Int64;
var
ST: SystemTime;
DT: TDateTime;
begin
GetSystemTime(ST);
DT := EncodeDate(ST.wYear, ST.wMonth, ST.wDay) + EncodeTime(ST.wHour, ST.wMinute, ST.wSecond, ST.wMilliseconds);
Result := MilliSecondsBetween(DT, UnixDateDelta);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tmUnix : Int64;
begin
tmUnix := UNIXTimeInMilliseconds;
Label1.Caption := IntToStr(tmUnix);
end;
|