Nur Mittel Europäsche Winterzeitzeit (MEZ)

[Uwe 111]

Hallo

Mit der Zeit habe ich es hin bekommem, aber der Tag wird nicht bei 00:00:00 abgezogen.

Delphi-Quellcode:

function TForm1.GetMEZ: TDateTime;
var
  ST : SystemTime;
begin
  DecodeDateTime(Now,ST.wYear,ST.wMonth,ST.wDay,ST.wHour,ST.wMinute,ST.wSecond,ST.wMilliseconds);
  GetSystemTime(ST);
  ST.wHour := ST.wHour + 1;
  // Überprüfen, ob die Stunde > 24 ist
  if ST.wHour >= 24 then
   ST.wHour := ST.wHour -24
  else
  // Überprüfen, ob die Stunde < 0; bzw bei Word > 65000 ; dann 24 Stunden hinzuzählen;
  if ST.wHour > 65000 then
   ST.wHour := ST.wHour + 24;
  Result := EncodeDateTime(ST.wYear,ST.wMonth,ST.wDay,ST.wHour,ST.wMinute,ST.wSecond,ST.wMilliseconds);
end;

MfG
Uwe