Daylight saving time/de

From Free Pascal wiki
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

Deutsch (de)

Sommerzeitberechnung der Bundesrepublik Deutschland ab dem Jahr 1981.

Die Funktion prüft, ob das übergebene Datum in der Sommerzeit liegt (Rückgabewert: True).

function funIstSommerzeit(Datum: TDateTime): boolean;
var
  wrdJahr: word;
  wrdMonat: word;
  wrdTag: word;
  datSommerzeit: TDatetime;
  datWinterzeit: TDateTime;

begin

  Result := False;

  DecodeDate(Datum, wrdJahr, wrdMonat, wrdTag);
  if wrdJahr < 1981 then
    exit;

  // Beginn der Sommerzeit:
  // letzter Sonntag im März um 2:00 Uhr
  datSommerzeit := EncodeDate(wrdJahr, 3, 31);
  datSommerzeit := datSommerzeit - (DayOfWeek(datSommerzeit) - 1) +
    Frac(StrToTime('02:00'));

  // Ende der Sommerzeit:
  // von 1981 bis 1995 letzter Sonntag im September um 3:00 Uhr
  // ab 1996 letzter Sonntag im Oktober um 3:00 Uhr
  if wrdJahr <= 1995 then
    datWinterzeit := EncodeDate(wrdJahr, 9, 30)
  else
    datWinterzeit := EncodeDate(wrdJahr, 10, 31);

  datWinterzeit := datWinterzeit - (DayOfWeek(datWinterzeit) - 1) +
    Frac(StrToTime('03:00'));

  Result := (Datum >= datSommerzeit) and (Datum < datWinterzeit);

end;

Beispiel für einen Aufruf der Funktion:

uses
...DateUtils...

function funTest: string;
begin

  // 10. Oktober 1990, 14:34:56
  if funIstSommerzeit(EncodeDateTime(1990,10,10,14,34,56,00);) = False then
    Result := 'Normalzeit'
  else
    Result := 'Sommerzeit';

end;