如何在Delphi中格式化Unix时间戳？

Question

我

var timestamp: Longint; 
timestamp := Round((Now() - 25569.0 {Unix start date in Delphi terms}) * 86400); 

里面我是用在一些MySql的东西主键。

但我还想格式化日期/时间，就像PHP's date() function那样。

有没有人有代码段或URL？

Answer 1

您从DateUtils.pas

寻找

function DateTimeToUnix(const AValue: TDateTime): Int64; 

和

function UnixToDateTime(const AValue: Int64): TDateTime; 

功能

TDateTime类型值可以通过FormatDateTime功能

Answer 2

被格式化这是更快

// 4x faster than dateutils version 
function UNIXTimeToDateTimeFAST(UnixTime: LongWord): TDateTime; 
begin 
Result := (UnixTime/86400) + 25569; 
end; 

// 10x faster than dateutils version 
function DateTimeToUNIXTimeFAST(DelphiTime : TDateTime): LongWord; 
begin 
Result := Round((DelphiTime - 25569) * 86400); 
end;