Отображение времени как СЕТ(Central European Time)

[gps]

Приветствую! Текущее время вывожу данным скриптом.

Код

begin
  // код для отображения системной даты и времени
  txtSystemDateTime1.Text := DateTimeToStr(Now);
end.

А как вывести рядом и дату со временем в СЕТ(Central European Time)?

[Simple_Scada]

Здравствуйте.

Методы для работы с датой и временем рассмотрены по ссылке. Например, с помощью функции "IncHour" можно сдвинуть текущее время на необходимое количество часов и аналогично вывести на мнемосхему. Каких-либо других способов нет. К примеру, если у Вас текущее время московское, то разница с СЕТ составит 2 часа:

Код: (delphi)

begin
  txtSystemDateTime1.Text := DateTimeToStr(Now);
  txtSystemDateTimeCET.Text := DateTimeToStr(IncHour(Now, -2));
end.