Hallo,
in der Astro4.rar --> uAstro.pas war noch ein kleiner Fehler versteckt :
Delphi-Quellcode:
function NextEclipse(var Date : TDateTime; sun : Boolean): TEclipse;
var
temp_date: TDateTime;
begin
Result := ecNone;
temp_date := Date - 28 * 2;
while temp_date < Date do
begin
temp_date := temp_date + 28;
Result := Eclipse(temp_date, sun);
end;
date := temp_date; // <----- diese Zeile muss entfernt werden !!!!!!!!!!!
end;
im Post #1 ist die Datei aktualisiert !
Ein Demo basierend auf dem Archiv "Astro4.rar" ist angefügt.
zur Beachtung :
vor Abfragen des HolidayIndex (function GetHolidayIndex(Date : TDateTime; Land : TdeState): Integer
muss die Funktion (function GetSeason(Date : TDate): String; ) aufgerunfen werden,
da in der Funktion HolidayIndex Werte verwendet werden, die in der Funktion GetSeason erzeugt werden.
In der Demo werden nur Werte in der Schriftfarbe 'schwarz' aktualisiert.