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

Question

我有

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

我在一些 MySql 中使用它作为主键。

但我还想格式化日期/时间，例如 PHP's date() function确实如此。

有人有代码片段或网址吗？

Answer 1

您正在寻找

function DateTimeToUnix(const AValue: TDateTime): Int64;

和

function UnixToDateTime(const AValue: Int64): TDateTime;

来自 DateUtils.pas 的函数

TDateTime 值可以通过 FormatDateTime 进行格式化功能