TimeToStr(time) - время по Гринвичу?[РЕШЕНО]

[Владимир]

Всем доброго!
Lazarus 2.0.10 - время московское
Lazarus 2.0.12 r63942 - время по гринвичу
Lazarus 2.2.0 - время по гринвичу

ОС Linux, в системе время московское
Как вариант

Код: Выделить всё

 TimeToStr(time+3/24)

Куда копать, дабы московское время получить?

[SSerge]

Владимир
Не только в преобразованиях в строку проблемы, на самом деле
http://sirserge.altai.info/articles/?id=46

[Владимир]

Т.е. простого решения на данный момент нет.

Не только в преобразованиях в строку проблемы

Я понимаю, что проблема с TDateTime. TimeToStr() вынес в заголовок для привлечения внимания
И спасибо!

[WAYFARER]

На самом деле проблем вроде бы нет.
В первую очередь нужно поискать проблему в системе, так как time возвращает локальное время (см. реализацию).
То что возвращается UTC - это не правильно.

Для начала гляньте выхлоп timedatectl в консоли.
И можно посмотреть что вернет функция GetLocalTimeOffset.

А что выведет вот такой код?

Код: Выделить всё

uses sysutils,dateutils;
var
  Time:TDateTime; 
  SystemTime: TSystemTime;
begin
  Time := Now;
  writeln('Local:',formatdatetime('dd-mm-yyyy hh:nn:ss',Time));
  writeln('UTC  :',formatdatetime('dd-mm-yyyy hh:nn:ss',LocalTimeToUniversal(Time)));
  GetLocalTime(SystemTime);
  writeln(SystemTime.Hour,':',SystemTime.Minute);
end.

Код: Выделить всё

output:
Local:04-04-2022 09:52:38:729
UTC  :04-04-2022 04:52:38:729

lazarus 2.2.0 fpc 3.2.0 linux 64

[alexs]

Была проблема.
Правили чтение данных таймзоны

сейчас нормально
Lazarus 2.3.0 (rev main-2_3-1047-g4d0b49c62b) FPC 3.3.1 x86_64-linux-gtk2

[WAYFARER]

Была проблема.
Правили чтение данных таймзоны

А где именно проблема была? В какой версии?

[alexs]

Проблема была в FPC

[Владимир]

А что выведет вот такой код?

Я ж написал - в системе время московское, тем не менее:

Код: Выделить всё

Local:12-04-2022 04:48:02
UTC  :12-04-2022 04:48:02
System:12-04-2022 07:48:02

[alexs]

Если не ошибаюсь - правили файл https://gitlab.com/freepascal.org/fpc/s ... mezone.inc
текущий FPC работает норм.
Вот пример от WAYFARER - всё красиво.

Код: Выделить всё

[alexs@alexs 9]$ fpc aa.pas 
Free Pascal Compiler version 3.3.1 [2022/04/05] for x86_64
Copyright (c) 1993-2022 by Florian Klaempfl and others
Target OS: Linux for x86-64


[alexs@alexs 9]$ ./aa
Local:12-04-2022 09:36:50
UTC  :12-04-2022 06:36:50
9:36