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 );