1、日期转换成时间戳function Gettimestamp: string; begin    Result := inttostr(DateTimeToUnix(IncHour(Now,-8)));    //  本地时间减8小时end;2、时间戳转换成日期function UnixDateToDateTime(const USec: Longin 来源： 时间戳与日期互转 - CSDN博客