Вывести временную зону

Delphi , Синтаксис , Дата и Время

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Статья Вывести временную зону раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2012-02-12 17:52:56 :: re:Вывести временную зону

пользователь: Apple.

спасибо, то что нужно для лабы

:: Главная :: Дата и Время ::