Naja eigentlich so...
Delphi-Quellcode:
var
SonneAuf, SonneUnter, SonneMax : TDateTime;
begin
SunShine(53.57, 9.73, now(), SonneAuf, SonneUnter, SonneMax);
ShowMessage(DateToStr(SonneUnter));
Aber da wird mit nur das Aktuelle Datum von heute angezeigt