函数第2个参数AReturnUTC默认是true，设置为false，北京时间正确返回。
2023-01-24 12:33:17》1674534797
lbledtUnix2.Text:=DateTimeToUnix(strtodatetime( lbledtdt.Text),false ).ToString
2023-01-24 12:33:17》1674534797000
(DateTimeToUnix(strtodatetime( lbledtdt.Text),false ).ToString.ToInt64*1000).ToString;//13位
1674534797>2023-01-24 12:33:17
UnixToDateTime(string( lbledtUnix.Text).ToInt64 ,false).ToString
1674534797000>2023-01-24 12:33:17
UnixToDateTime(string( lbledtUnix.Text).ToInt64 div 1000 ,false).ToString
标签：24,01,转换,Text,delphi,DateTimeToUnix,ToString,false From： https://www.cnblogs.com/cb168/p/17066033.html