Hallo #,
aus ptb.de
Zitat:
Die mitteleuropäische Sommerzeit (MESZ) beginnt jeweils am letzten Sonntag im Monat März um 2 Uhr mitteleuropäischer Zeit. An diesem Tag werden die Uhren um 2 Uhr um eine Stunde auf 3 Uhr vorgestellt. Ziel der Zeitumstellung ist die bessere Ausnutzung der Tageshelligkeit.
Die Sommerzeit endet jeweils am letzten Sonntag im Monat Oktober um 3 Uhr mitteleuropäischer Sommerzeit. An diesem Tag werden die Uhren um 3 Uhr auf 2 Uhr zurückgestellt. Bei dieser doppelt erscheinenden Stunde wird die erste Stunde als 2A und die zweite Stunde als 2B bezeichnet.
Wir sind faul:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
tz : TTimeZoneInformation;
tdtTimeStart : TDateTime;
tdtTimeEnd : TDateTime;
sText : string;
begin
GetTimeZoneInformation(tz);
tz.DaylightDate.wYear := 2014;
tz.StandardDate.wYear := 2014;
tdtTimeStart := SystemTimeToDateTime(tz.DaylightDate);
tdtTimeEnd := SystemTimeToDateTime(tz.StandardDate);
sText := 'Start: '+DateToStr(tdtTimeStart)+#13#10+
'Ende: '+DateToStr(tdtTimeEnd);
MessageBox(0, PChar(sText), '', 0);
end;
Aber: Es kommt 5.3. raus beim Start.
Ich könnte dass bissel auch per Funktion schreiben,
will ich aber nicht
oder muss ich doch ???
Heiko