Wie formatiert man einen Unix-Timestamp in Delphi?

Question

Ich habe

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

, die ich als Primärschlüssel in einigen MySql Sachen verwenden.

Aber ich würde auch gerne das Datum/Uhrzeit formatieren, wie PHP's date() function tut.

Hat jemand ein Code-Snippet oder eine URL?

Answer 1

Sie suchen

function DateTimeToUnix(const AValue: TDateTime): Int64; 

und

function UnixToDateTime(const AValue: Int64): TDateTime; 

Funktionen von DateUtils.pas

TDateTime-Wert kann durch FormatDateTime Funktion

Answer 2

Dies ist viel schneller formatiert werden

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