delphi 日期转Unix时间戳

uses System.DateUtils;

function DateTimeToUnix(const AValue: TDateTime): Int64;

// 日期转Unix时间戳

begin

  Result := System.DateUtils.DateTimeToUnix(AValue) - 8 * 60 * 60;

end;