¿Cómo formatear una marca de tiempo Unix en Delphi?

Question

que tienen

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

el que estoy usando como clave primaria en algunas cosas MySql.

Pero también me gustaría formatear la fecha/hora, como PHP's date() function.

¿Alguien tiene un fragmento de código o URL?

Answer 1

Usted está buscando

function DateTimeToUnix(const AValue: TDateTime): Int64; 

y

function UnixToDateTime(const AValue: Int64): TDateTime; 

funciones de DateUtils.pas

TDateTime valor puede ser formateada por FormatDateTime función

Answer 2

Esto es mucho más rápido

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