Comment formater un horodatage Unix dans Delphi?

Question

J'ai

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

que je me sers comme clé primaire dans quelques trucs MySql. Je voudrais également formater la date et l'heure, comme PHP's date() function fait.

Est-ce que quelqu'un a un extrait de code ou une URL?

Answer 1

Vous recherchez

function DateTimeToUnix(const AValue: TDateTime): Int64; 

et

function UnixToDateTime(const AValue: Int64): TDateTime; 

fonctions de DateUtils.pas

valeur TDateTime peut être formaté par FormatDateTime fonction

Answer 2

Cela est beaucoup plus rapide

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