時間戳,秒級,毫秒級轉換DateTime格式


解決了本地時間和格林尼治時間差問題

function DateTimeToTp(ConvDate: TDateTime): time_t;
var
zi: TTimeZoneInformation;
begin
GetTimeZoneInformation(zi);
Result := Round((ConvDate - UnixDateDelta) * 86400) + 60 * (zi.Bias + zi.DaylightBias);
end;

function TpToDateTime(UnConvDate: time_t): TDateTime;
var
zi: TTimeZoneInformation;
begin
GetTimeZoneInformation(zi);
Result := ((UnConvDate - 60 * zi.Bias) / 86400) + UnixDateDelta;
end;


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM