Astro-Daten

[mimi]

Deine Unit Funktioniert auch noch einigen Änderungen Problemlos in Lazausr(Unter Linux).
Ich habe folgende Änderungen gemacht:
01: Die Unit Windows Entfernt
02: Die Funktionen "EDrive. DateTimeReal und DateTimeTZ" habe ich einfach auskommentiert. Sie scheinen in der Unit nicht verwendet zu werden.

Ich hoffe es macht nichts das die letzte Antwort älter als ein Halbes Jahr ist. Ich wollte auch nur drauf hinweisen, dass die Unit auch unter Lazarus läuft und ich sie wohl für mein Projekt verwenden werde.

Ein Verbesserungs Vorschlag:
Es wäre schön, wenn GetSternzeichen nicht nur ein Bereich prüfen könnte sondern auf Wunsch z.b. über ein Optimalen Parameter ob das Anfang Datum oder End Datum von einem Zeitraum gewünscht ist oder halt ein Zeitraum.
Ich hoffe du weißt was ich damit meine.

Jedenfalls gefällt mir die Unit recht gut, wobei ich auch Ähnlichkeiten zu einer anderen Unit bemerkt habe... Aber bestimmt ist das reiner Zufall: http://www.delphi-fundgrube.de/files/feiertg.txt oder?
(...Ich habe mir jetzt nicht den ganzen Thread durchgelesen...)

[markus5766h]

Zitat von mimi:

Ich habe folgende Änderungen gemacht:
01: Die Unit Windows Entfernt
02: Die Funktionen "EDrive. DateTimeReal und DateTimeTZ" habe ich einfach auskommentiert. Sie scheinen in der Unit nicht verwendet zu werden

diese Funktionen sind später hinzugekommen :
DateTimeReal liefert die (theoretische) Zeit (und Datum) auf Grund der Position,
DateTimeTZ liefert Datum/Zeit unter Angabe der Zeitzone
. . . ach ja, und EDrive war (bzw. ist) eine Hilfs-Funktion zur quantitativen
Darstellung der Mondposition in Abhängigkeit von Datum/Zeit (auf einer Kreisbahn,
nicht auf einer Ellipse) - ist also für diese Unit nicht nötig.

Zitat von mimi:

1)Ein Verbesserungs Vorschlag:
Es wäre schön, wenn GetSternzeichen nicht nur ein Bereich prüfen könnte sondern auf Wunsch z.b. über ein Optimalen Parameter ob das Anfang Datum oder End Datum von einem Zeitraum gewünscht ist oder halt ein Zeitraum.
Ich hoffe du weißt was ich damit meine.

2)Jedenfalls gefällt mir die Unit recht gut, wobei ich auch Ähnlichkeiten zu einer anderen Unit bemerkt habe... Aber bestimmt ist das reiner Zufall: http://www.delphi-fundgrube.de/files/feiertg.txt oder?
(...Ich habe mir jetzt nicht den ganzen Thread durchgelesen...)

ad 1) werd' ich mir mal auf die Liste schreiben (kann allerdings etwas dauern)
ad 2) kannte ich noch nicht, allerdings sind ähnliche Funktionen in einigen Büchern
beschrieben, so dass diese nicht sehr voneinander abweichen können

[markus5766h]

Hallo.

--> 21.12.2013 : Version 4 angefügt (Astro4.rar) :
hinzugekommen sind Berechnungen zum "Blue Moon":
function BlueMoon . . . - hier wird auf vier Vollmonde in einer Jahreszeit geprüft, der
dritte Vollmond ist dann der Blue Moon.
Im Aufruf der Funktion kann dann noch festgelegt werden, ob der
vergangene Winter oder der kommende Winter berücksichtigt wird,
geprüft wird über vier Jahreszeiten.
function Double Moon . . . - hier wird auf zwei Vollmonde in einem Monat geprüft, je nach
Definition (es gibt mehrere) ist dann der zweite Vollmond
(30. od. 31. eines Monats) der Blue Moon.

-- in Kürze : Auswahl der Berechnungen zu Sonnenstand, Auf-Untergang nach
realer (-0,83333°), bürgerlicher(-6°), nautischer(-12°), astronomischer(-18°) Dämmerung
--> erledigt (siehe Post #1)


ein frohes Weihnachtsfest und einen guten Rutsch in's neue Jahr

[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.

[mimi]

Ich weiß das das Thema alt ist, aber ich wollte jetzt auch nicht extra ein neuen Thread dazu aufmachen.

Ich nutze inzwischen die neue Unit unter Lazarus.

Bei der neuen, wie bei der alten, gibt es bei Sun_Rise Abweichungen.
Heute z.b. sollte laut Refernezn Quellen im Internet die Sonne um 07:04 Uhr aufgehen, aber laut Unit um 05:34. Rechnet man 1 Stunde und 30 Minuten hinzu passt es wieder.
Wie kommt es zu dieser "Abweichung"?

Code:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  writeln('ctAstronomical: ',DateTimeToStr(Sun_Rise(Now,+53.143889,+8.213889,ctAstronomical)));
  writeln('ctNautic: ',DateTimeToStr(Sun_Rise(Now,+53.143889,+8.213889,ctNautic)));
  writeln('ctZivil: ',DateTimeToStr(Sun_Rise(Now,+53.143889,+8.213889,ctZivil)));
  writeln('ctGeneral: ',DateTimeToStr(Sun_Rise(Now,+53.143889,+8.213889,ctGeneral)));
  writeln('ctNull: ',DateTimeToStr(Sun_Rise(Now,+53.143889,+8.213889,ctNull)));

end;

Ich habe die Position für Oldenburg(Oldenburg) Angegeben.
Oder mache ich noch was Falsch?

[jfheins]

Ich tippe auf
1. eine Stunde weil wir aktuell Sommerzeit haben. Winterzeit wäre der Sonnenaufgang schon um 6:04
2. eine halbe Stunde, weil Oldenburg nicht in der Mitte der Zeitzone liegt. Die Astro-Zeit ist dann die "tatsächliche, lokale" Zeit, Oldenburg liegt mit 8° schon weit von der Mitte (15°) entfernt.

[mimi]

Währe auf jedenfall eine Erklärung.

Wie könnte man das "Ausgleichen"? Sommerzeit/Winterzeit könnte man ja noch hinzurechnen das wäre nicht das Problem, aber die Halbestunde. Müsste ich jetzt die angeben koordinaten weiter anpassen?

Ach ja: Ich kann auch die Werte aus der uTable unit nehmen, dass ist das gleiche...