Astro-Daten

[markus5766h]

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.