Delphi的DateTimeToUnix和UnixToDateTime轉(zhuǎn)換時(shí)間時(shí)溃槐,在中國時(shí)間就差了8個(gè)小時(shí),所以對(duì)它進(jìn)行了一些改造。
type
time_t = Int64;
function DateTimeToUnix(ConvDate: TDateTime): time_t;
var
zi : TTimeZoneInformation;
begin
GetTimeZoneInformation(zi);
Result := Round((ConvDate - UnixDateDelta) * 86400) + 60*(zi.Bias + zi.DaylightBias);
end;
function UnixToDateTime(USec: time_t): TDateTime;
var
zi : TTimeZoneInformation;
begin
GetTimeZoneInformation(zi);
Result := ((USec - 60*zi.Bias) / 86400) + UnixDateDelta;
end;