您正在寻找

function DateTimeToUnix(const AValue: TDateTime): Int64;

和

function UnixToDateTime(const AValue: Int64): TDateTime;

DateUtils.pas中的函数
TDateTime值可通过**FormatDateTime**函数格式化

这样快多了

// 4x faster than dateutils version
function UNIXTimeToDateTimeFAST(UnixTime: LongWord): TDateTime;
begin
Result := (UnixTime / 86400) + 25569;
end;

// 10x faster than dateutils version
function DateTimeToUNIXTimeFAST(DelphiTime : TDateTime): LongWord;
begin
Result := Round((DelphiTime - 25569) * 86400);
end;

我会使用DateTimeToUnix，就像@kludg建议的那样。

function DateTimeToUnix(const AValue: TDateTime): Int64;

如果你想要当前Unix时间戳的毫秒格式，你可以实现以下函数：

function UNIXTimeInMilliseconds: Int64;
var
  DateTime: TDateTime;
  SystemTime: TSystemTime;
begin
  GetSystemTime(SystemTime);
  DateTime := SysUtils.EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay) +
        SysUtils.EncodeTime(SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond, SystemTime.wMilliseconds);
  Result := DateUtils.MilliSecondsBetween(DateTime, UnixDateDelta);
end;

上面提到的函数UNIXTimeToDateTimeFAST应该使用Int64而不是Longword。对于较旧的日期（负值），Longword会给出错误的结果。