Fungsi ini untuk mendapatkan setting time zone yang sedang dipakai di komputer. Result dalam bentuk string
function GetTimeZone: string;
var
TimeZone: TTimeZoneInformation;
begin
GetTimeZoneInformation(TimeZone);
Result := ‘GMT ‘ + IntToStr(TimeZone.Bias div -60);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetTimeZone;
end;
DIarsipkan di bawah: String, System | yang berkaitan: function, GMT, System, time, zone
