1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
| uses Windows,Sysutils....;
function GetGMT : TDateTime; var SystemTime : _SystemTime; TimeZoneInfo : Time_Zone_Information; begin DecodeTime(now,SystemTime.wHour,SystemTime.wMinute,SystemTime.wSecond,SystemTime.wMilliSeconds); GetTimeZoneInformation(TimeZoneInfo); SystemTime.wHour := SystemTime.wHour + TimeZoneInfo.Bias div 60 + TimeZoneInfo.DaylightBias div 60; if SystemTime.wHour > 65000 then SystemTime.wHour := SystemTime.wHour + 24; if SystemTime.wHour >= 24 then SystemTime.wHour := SystemTime.wHour -24; Result := EncodeTime(SystemTime.wHour,SystemTime.wMinute,SystemTime.wSecond,SystemTime.wMilliSeconds); end; |