В самом Delphi такой функции, если я не ошибаюсь, нет. Но есть вызов соответсвующей функции из API. То, что ты показал в примерах - это Unix Time (т.е. кол-во милисекунд прошедшиз с определенной даты).
Можно получить вот таким образом:
Код:
1 2 3 4 5 6 7 8 9 | function UNIXTimeInMilliseconds: Int64;
var
ST: SystemTime;
DT: TDateTime;
begin
Windows.GetSystemTime(ST);
DT := SysUtils.EncodeDate(ST.wYear, ST.wMonth, ST.wDay) + SysUtils.EncodeTime(ST.wHour, ST.wMinute, ST.wSecond, ST.wMilliseconds);
Result := DateUtils.MilliSecondsBetween(DT, UnixDateDelta);
end;
|