How to format a Unix timestamp in Delphi?

Question

I have

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

which I am using as a primary key in some MySql stuff.

But I would also like to format the date/time, like PHP's date() function does.

Does anyone have a code snippet or URL?

Answer 1

You are looking for

function DateTimeToUnix(const AValue: TDateTime): Int64;

and

function UnixToDateTime(const AValue: Int64): TDateTime;

functions from DateUtils.pas

TDateTime value can be formatted by FormatDateTime function