Изменение часового пояса на форме

@race99 · Регистрация: 30.09.2016

Author24 — интернет-сервис помощи студентам

Здраствуйте. Я хотел бы сделать программу, в которой либо время переведено в московское сразу при запуске программы, либо сделать выбор: -1 час, -2 часа и тд от местного времени чтобы перевести время в московское.
На моей форму есть компонент Timer c кодом.

Delphi

1	Label1.Caption := TimeToStr(Time);

Что мне нужно сделать чтобы реализовать мою идею?

@Puporev · 14.06.2018, 16:58

Для примера.

Delphi

uses Dateutils;
procedure TForm1.FormCreate(Sender: TObject);
var r:integer;
begin
r:=-3;
Label1.Caption := FormatDatetime('hh:mm:ss',IncHour(Time,r));
end;

	14.06.2018, 16:58

Изменение часового пояса на форме

Решение