[gelöst] Programm bekommt die Zeitumstellung nicht mit

[willi4willi]

Hallo!

In dieser Nacht wurde wieder auf Sommerzeit umgeschaltet.

Mein Programm lief die Nacht durch und hatte heute morgen noch die alte Zeit.
Wenn man das Programm beendet und wieder neu startet, dann ist die Zeitanzeige in Ordnung.

Wie kann einem laufenden Programm die Zeitumstellung mitgeteilt werden?

Offensichtlich wird die Variable TzSeconds nur beim Programmstart initialisiert.

[BeniBela]

Nah, da ist kein Bug, das Programm ist nur vernünftig.

Die Sommerzeit ist überflüssiger Quatsch und sollte abgeschafft werden!

Vielleicht hilft es wenn jeder dein Programm einsetzt

[mschnell]

Da kann man aber durchaus anderer Ansicht sein. Ich finde es höchst angenehm, dass es abends länger hell ist.

Bezüglich Programmierung, bin ich der Ansicht, ein Programm sollte intern grundsätzlich in UTC arbeiten. Nur das User-Interface sollte eine Umrechnung anhand von Locale machen. Soweit ich weiß, stellt die FPC RTL für diese Umrechnung (hin und zurück) zur Verfügung.

-Michael

[Christian]

78% der Deutschen sind nicht deiner Ansicht

[willi4willi]

Hallo,

nachdem ich jetzt viel herumprobiert habe, konnte ich die Ursache selbst finden.

Unter Windows funktionierte es einwandfrei. Unter Linux gab es das Problem.
Es ist offensichtlich in der Funktion "GetLocalTimeOffset" ein Bug?

Stellt man das System-Datum auf 30.03.2014 01:59:55 und startet dann folgendes kleine Programm:

Code: Alles auswählen

 
...
 
implementation
 
uses lazutf8sysutils,dateutils;
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  memo1.Lines.Add('Universal Time: '+DateTimeToStr(nowUTC()));
  memo1.Lines.Add('Local Time: '+DateTimeToStr(UniversalTimeTolocal(nowUTC(),GetLocalTimeOffset)));
  memo1.Lines.Add('Local Time: '+DateTimeToStr(UniversalTimeTolocal(nowUTC())));
  memo1.Lines.Add('Local Time: '+DateTimeToStr(now()));
  memo1.Lines.Add('Local TimeOffset: '+inttostr(GetLocalTimeOffset));
  memo1.Lines.Add('-----');
end;
...
 
 

Dann macht es unter Windows das:

Code: Alles auswählen

 
---
Universal Time: 30-3-14 00:59:59
Local Time: 30-3-14 01:59:59
Local Time: 30-3-14 01:59:59
Local Time: 30-3-14 01:59:59
Local TimeOffset: -60
-----
Universal Time: 30-3-14 01:00:00
Local Time: 30-3-14 03:00:00
Local Time: 30-3-14 03:00:00
Local Time: 30-3-14 03:00:00
Local TimeOffset: -120
-----
Universal Time: 30-3-14 01:00:01
Local Time: 30-3-14 03:00:01
Local Time: 30-3-14 03:00:01
Local Time: 30-3-14 03:00:01
Local TimeOffset: -120
-----
Universal Time: 30-3-14 01:00:02
Local Time: 30-3-14 03:00:02
Local Time: 30-3-14 03:00:02
Local Time: 30-3-14 03:00:02
Local TimeOffset: -120
-----
 

und unter Linux das:

Code: Alles auswählen

 
---
Universal Time: 30-3-14 00:59:59
Local Time: 30-3-14 01:59:59
Local Time: 30-3-14 01:59:59
Local Time: 30-3-14 01:59:59
Local TimeOffset: -60
-----
Universal Time: 30-3-14 01:00:00
Local Time: 30-3-14 02:00:00
Local Time: 30-3-14 02:00:00
Local Time: 30-3-14 02:00:00
Local TimeOffset: -60
-----
Universal Time: 30-3-14 01:00:01
Local Time: 30-3-14 02:00:01
Local Time: 30-3-14 02:00:01
Local Time: 30-3-14 02:00:01
Local TimeOffset: -60
-----
Universal Time: 30-3-14 01:00:02
Local Time: 30-3-14 02:00:02
Local Time: 30-3-14 02:00:02
Local Time: 30-3-14 02:00:02
Local TimeOffset: -60
-----
 
 

Wenn man das Linux-Programm beendet und neu startet, ist die Welt wieder in Odnung.

[Mathias]

Die Sommerzeit ist überflüssiger Quatsch und sollte abgeschafft werden!

Ich währe eher dafür, die Winterzeit abzuschaffen, dann hätte man im Winter wenigstens am Abend 1 Stunde länger hell.

[mschnell]

Die Sommerzeit ist überflüssiger Quatsch und sollte abgeschafft werden!

Ich währe eher dafür, die Winterzeit abzuschaffen, dann hätte man im Winter wenigstens am Abend 1 Stunde länger hell.

Das nützt ja wohl gar nichts, da sich die Leute dann anpassen und nach einigen Jahren ist alles beim alten nur "nominal" eine Stunde verschoben.

Meine Lieblings-Variante ist diese:
- Momentan ist die "Normal"-Zeit (nicht Sommerzeit) daran festgemacht, dass zu einer bestimmten Zeit (12:00 Mittags) an einem bestimmten Ort in einer Zeitzone die Sonne im Zenit steht.
- Mein Wunsch wäre, dass man definiert, dass die Sonne immer zu einer bestimmten Zeit an einem bestimmten Ort in einer Zeitzone untergehgt. Der Breitengrad des Ortes sollte so gewählt werden, dass die Tageslänge (zwischen Sonnenaufgang und Sonnenuntergang) an diesem Ort um (z.B.) 3 Stunden variiert.

Dann hatte man keine jährliche "Zeit-Umstellung" und trotzdem bleibt die Stunde des Sonnenuntergangs überall einigermaßen konstant.

Fände ich höchst angenehm. Die langsam floatenden Tageslänge ist aber technisch natürlich nicht so leicht zu realisieren.

-Michael

[grl]

Die Sommerzeit ist überflüssiger Quatsch und sollte abgeschafft werden!

Grundsätzlich bin ich ja auch der Meinung - aber das löst das Problem nicht. Und ich hab genau das gleiche Problem und wäre daher an einer Lösung ebenfalls interessiert - vor allem weil in meinem Fall das Programm als Daemon auf einem Server rennt und daher ein Neustart extrem unelegant ist...

Gruß
GRL

[willi4willi]

Hallo,

danke für die vielen tollen Tipps.

Doch ich muss ehrlich gestehen, keine dieser Lösungen habe ich nachverfolgt. Weder die Abschaffung der Sommerzeit, noch eine ständige Sommerzeit oder eine geniale Zeit, bei der es ein Mittel zwischen Sommerzeit und Normalzeit gibt, konnte ich umsetzen. Sollen das mal die Politiker machen!

Für grl habe ich mich noch einmal zu Wort gemeldet, um meine funktionierende (aber nicht so geniale) Lösung zu hinterlassen:

Code: Alles auswählen

 
unit Localtime;
{$mode objfpc}{$H+}
 
interface
 
uses  Classes, SysUtils;
 
 function GetLocalTimeOffset: Integer;           //< Zeitunterschied zur Universalzeit in Minuten
 function UTCToLocal(UT: TDateTime): TDateTime;  //< wandelt UTC in lokale Zeit
 function LocalToUTC(LT: TDateTime): TDateTime;  //< wandelt lokale Zeit in UTC
 function UTC:TDateTime;                         //< gibt die UTC zurück
 
implementation
 
uses {$IFDEF MSWINDOWS} windows {$ENDIF} {$IFDEF UNIX} process{$ENDIF};
 
{$IFDEF UNIX}
function RufeKommando(kdo:string):string;
var   process : TProcess;
      slOutput : TStringList;
         ErgStr : String;
begin
  process := TProcess.Create(nil);
  try
    slOutput := TStringList.Create;
    try
      process.CommandLine := kdo;
      process.Options := process.Options + [poWaitOnExit, poUsePipes];
      process.Execute;
      slOutput.LoadFromStream(process.Output);
      if slOutput.Count > 0 then Result:=slOutput[0]
                                     else result := '';
    finally
      FreeAndNil(slOutput);
    end;
  finally
    FreeAndNil(process);
  end;
end;
{$ENDIF}
 
function GetLocalTimeOffset: Integer;
{$IFDEF UNIX}
var kdoErg : String;
begin
  kdoErg:=RufeKommando('date +%z');
  if kdoErg<>'' then Result:=-StrToInt(copy(kdoErg,1,1)+IntToStr(StrToInt(copy(kdoErg,2,2))*60+StrToInt(copy(kdoErg,4,2))))
                     else Result:=0;
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
var  BiasType: Byte;
          TZInfo: TTimeZoneInformation;
const  BS_TYPE_UKNOWN = 0 ;
       BS_TYPE_STANDARD = 1 //< Normalzeit ;
        BS_TYPE_DAYLIGHT = 2 //< Sommerzeit ;
begin
  Result := 0;
  BiasType := GetTimeZoneInformation(TZInfo);
  if (BiasType=BS_TYPE_UKNOWN) then Exit;
  if (BiasType=BS_TYPE_DAYLIGHT) 
    then   Result := TZInfo.Bias + TZInfo.DaylightBias
     else if (BiasType=BS_TYPE_STANDARD) then
        Result := TZInfo.Bias + TZInfo.StandardBias;
end;
{$ENDIF}
 
function UTCToLocal(UT: TDateTime): TDateTime;
var  LT: TDateTime;
  TZOffset: Integer;
begin
  LT := UT;
  TZOffset := GetLocalTimeOffset;
  if (TZOffset > 0) 
     then  LT := UT - EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)
     else if (TZOffset = 0) 
               then   LT := UT
               else if (TZOffset < 0) 
                     then LT := UT + EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0);
  Result := LT;
end;
 
function LocalToUTC(LT: TDateTime): TDateTime;
var  UT: TDateTime;
  TZOffset: Integer; 
begin
  UT := LT;
  TZOffset := GetLocalTimeOffset;
   if (TZOffset > 0) 
     then  UT := LT + EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)
     else if (TZOffset = 0) 
             then UT := LT
             else if (TZOffset < 0) 
                    then  UT := LT - EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0);
  Result := UT;
end;
 
function UTC:TDateTime;
{$IFDEF UNIX}
var kdoErg   : String;
  Systemzeit : TSystemTime;
begin
  kdoErg:=RufeKommando('date -u +%Y%m%d%H%M%S%N');
  if kdoErg<>'' then
  begin
    SystemZeit.Year        := StrToInt(copy(kdoErg,1,4));
    SystemZeit.Month       := StrToInt(copy(kdoErg,5,2));
    SystemZeit.Day         := StrToInt(copy(kdoErg,7,2));
    SystemZeit.Hour        := StrToInt(copy(kdoErg,9,2));
    SystemZeit.Minute      := StrToInt(copy(kdoErg,11,2));
    SystemZeit.Second      := StrToInt(copy(kdoErg,13,2));
    SystemZeit.MilliSecond := StrToInt(copy(kdoErg,15,3));
    Result:=SystemTimeToDateTime(Systemzeit);
  end
  else Result:=0;
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
  begin
    Result:=LocalToUTC(now);
  end;
{$ENDIF}
end.
 
 

Vielleicht hilft dieses weiter.

[mse]

Wenn ich mich recht erinnere, wurde das Linux/Unix-Problem auf der FPC Mailinglist des Langen und Breiten diskutiert und alle vorgeschlagenen Lösungen verworfen - dies geschieht in FPC ab und zu .
Die MSEgui Variante von now(), nowlocal()/nowutc() berücksichtigt die automatische Sommerzeit-Umstellung.