Wäre es möglich, das das so einfach geht?
Delphi-Quellcode:
Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,4,1);
return result - DayOfWeek(Result); // Letzter Sonntag im März
End;
Function EndeDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,11,1);
return result - DayOfWeek(Result); // Letzter Sonntag im Oktober
End;
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:
Delphi-Quellcode:
Function TForm1.AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,4,1);
result:= (result - DayOfWeek(Result))+1; // Letzter Sonntag im März
End;
Function TForm1.EndeDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,11,1);
result:= (result - DayOfWeek(Result))+1; // Letzter Sonntag im Oktober
End;
Hm, da stellt sich mir noch die Frage, ob die Funktion zwei Resultate blitzschnell und fürs Auge unbemerkt liefert, oder ob das erste 'result' in der Funktion verbleibt...