Hallo,
im Anhang findest Du eine
Unit, mit der Du die Jahreszeiten berechnen kannst. Die Genauigkeit beträgt ca. +- 5 Min.
Delphi-Quellcode:
uses
SysUtils,
uJahreszeiten;
var
jz:TJahreszeitenArr;
i :Integer;
begin
jz:=Jahreszeiten(2007);
for i:=0 to 3 do ShowMessage(DateTimeToStr(jz[i]));
end.