9
var timestamp: Longint;
timestamp := Round((Now() - 25569.0 {Unix start date in Delphi terms}) * 86400);
裏面我是用在一些MySql的東西主鍵。
但我還想格式化日期/時間,就像PHP's date() function那樣。
有沒有人有代碼段或URL?
var timestamp: Longint;
timestamp := Round((Now() - 25569.0 {Unix start date in Delphi terms}) * 86400);
裏面我是用在一些MySql的東西主鍵。
但我還想格式化日期/時間,就像PHP's date() function那樣。
有沒有人有代碼段或URL?
您從DateUtils.pas
尋找function DateTimeToUnix(const AValue: TDateTime): Int64;
和
function UnixToDateTime(const AValue: Int64): TDateTime;
功能
TDateTime類型值可以通過FormatDateTime功能
被格式化這是更快
// 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;
+1謝謝。我不會經常這樣做,但這對知道 – Mawg 2011-02-23 07:25:16
很有用。請注意,DateTimeToUNIXTimeFAST與DateUtils版本略有不同,如果毫秒= 500..999,則DateUtils將倒退,而FAST版本將向下舍入第二。 – hikari 2014-01-05 20:37:49
結果:= Trunc(((DelphiTime - 25569)* 86400); – wittrup 2014-03-06 18:13:00