Delphi Firemonkey OSX次のコードをどのように変換するのですか？

Question

次のコードをOSXで実行するソリューションを見つけることができません。誰かが私はOSXの下でどのようにUNIXのタイムスタンプ（UTC）を取得することができます知っていますか？

function GetUnixTimestamp: int64; 
var 
    st: TSystemTime; 
    dt: TDateTime; 
    ut: int64; 
begin 
    dt := SystemTimeToDateTime(st); 
    ut := DateTimeToUnix(dt); 
    result := ut; 
end; 

Answer 1

私は単なる愚かだ、気にしないで...次のコードは、私が欲しいものを正確に行います。

result:=DateTimeToUnix(now,true); 

Answer 2

があなたのuses節にSystem.DateUtilsを追加します。 TTimeZone.Local等UTCオフセット、夏時間、ニーズに応じて適宜使用することを含む他の属性を持っていることを

//Get the current local time 
dtLocal:=Now; 
//Convert to UTC 
dtUTC:=TTimeZone.Local.ToUniversalTime(dtLocal); 
//Convert UTC time to Unix format 
dtUTCUnix:=DateTimeToUnix(dtUTC, True); 

注：

は、このコードを使用します。