Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Get time zone information
Use GetTimeZoneInformation function. TIME_ZONE_INFORMATION structure contains all information about time and zone.
procedure TForm1.Button1Click(Sender: TObject);
var
ZoneInfo: TTimeZoneInformation;
begin
GetTimeZoneInformation(ZoneInfo);
with Memo1.Lines do
begin
Add('Bias: '+ IntToStr(ZoneInfo.Bias));
Add('StandardName: '+ZoneInfo.StandardName);
Add('StandardBias: '+IntToStr(ZoneInfo.StandardBias));
Add('DaylightName: '+ZoneInfo.DaylightName);
Add('DaylightBias: '+IntToStr(ZoneInfo.DaylightBias));
end;
end;
-
More for developers