delphi DateTimeToUnix 时间戳转换

函数第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

 

//test

self.Memo1.Lines.Add( UnixToDateTime(1674534797000 div 1000,false).tostring);
self.Memo1.Lines.Add( UnixToDateTime(1674534797,false).tostring);

self.Memo1.Lines.Add(  DateTimeToUnix( strtodatetime('2023-01-24 12:33:17'),false ).ToString );
self.Memo1.Lines.Add( ( DateTimeToUnix( strtodatetime('2023-01-24 12:33:17'),false )*1000).ToString );