Forum: Programmieren allgemein
by Codix32,
12. Jan 2014
Ups, danke Sir Rufo,
ich hab gerade so was gemacht und vom Aussehen her gefällt mir es nicht:
Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
if DayOfweek(EncodeDate(Jahr,4,1)) > 1 then
result := EncodeDate(Jahr,4,1)
else
result := EncodeDate(Jahr,3,31);
Forum: Programmieren allgemein
by Codix32,
12. Jan 2014
@Furtbichler,
die Funktion ist ungenau.
Für das Jahr 2018 kriege ich den 1.04.2018 als Sommerzeitbeginn,
weil der 1.04.2018 ein Sonntag ist.
Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
Forum: Programmieren allgemein
by Codix32,
11. Jan 2014
Danke Furtbichler und Klaus01.
Forum: Programmieren allgemein
by Codix32,
11. Jan 2014
Hilfe Furtbichler,
was macht denn das 'return' da drin?
Ist das 'return' nicht eher was für C++ ?
Das erinnert mich irgendwie auch an Basic, aber ehrlich, ich verstehe die Funktion so nicht.
Ich habe Deine Funktion in meinem Delphi getestet und so geht sie dann:
Function TForm1.AnfangDerSommerzeit(Jahr : Word) : TDateTime;