Mondphasenberechnung
28.12.2006 17:44:48
reiner
unter https://www.herber.de/forum/messages/246229.html fand ich eine Excel-Funktion zur Berechnung der Mondphasen (Vollmond, Neumond, abnehmend, zunehmend) sh. auch den nachfolgenden Pro-grammcode aus dem genannten Beispiel.
Diese Funktion arbeitet problemlos, allerdings stimmen die ermittelten Ergebnisse nicht immer mit den in vielen Kalendern abgedruckten Symbolen mit der jeweiligen Angabe des Tages der Mondphasen überein.
Die Ergebnisse weichen bis zu 1 Tag von den (vermutlich korrekten)Kalendereinträgen ab.
Function Mondphase(Datum As Date) As String
Const SynodMonat As Double = 29.530588
Const SynodVollmond As Doub-le = 105.6213922 'IstVollmondTag()
'Const SynodStart As Double = 113.0040392 'IstHalbmondTagAbnehmend()
Const SynodNeumond As Double = 120.3866862 'IstNeumondTag()
'Const SynodStart As Double = 127.7693332 'IstHalbmondTagZunehmend()
Dim OK As Boolean
Dim DatumDbl As Double
Dim DatumLng As Long
Dim DatumVollMond As Date
Dim DatumNeuMond As Date
Dim i As Long
If Year(Datum) > 1900 And Year(Datum) < 2100 Then
'Berechnung ob Vollmond oder nächster Vollmondtag
For i = 1 To 2470
DatumDbl = SynodVollmond + i * SynodMonat
DatumLng = Int(DatumDbl)
DatumVollMond = CDate(DatumLng)
If DatumVollMond = Datum Then
Mondphase = "Vollmond"
Exit Function
ElseIf DatumVollMond > Datum Then
Mondphase = "zunehmend"
Exit For
End If
Next i
'Berechnung ob Neumond oder nächster Neumondtag
For i = 1 To 2470
DatumDbl = SynodNeumond + i * SynodMonat
DatumLng = Int(DatumDbl)
DatumNeuMond = CDate(DatumLng)
If DatumNeuMond = Datum Then
Mondphase = "Neumond"
Exit Function
ElseIf DatumNeuMond > Datum Then
Exit For
End If
Next i
'Berechnung ob Neu- oder Vollmond näher
If DatumNeuMond < DatumVollMond Then
Mondphase = "abnehmend"
End If
End If
End Function
Leider verfüge ich über keine Kenntnis aus dem Bereich der Astrophysik um den Fehler zu beseitigen bzw. den Code zu korrigieren.
Hat jemand mit dieser Funktion ähnliche Erfahrungen gemacht?
Kennt evtl. jemand eine andere (fehlerfreie)Möglichkeit zur Berechnung der Mondphasen?
Unter www.astroexcel.de habe ich übrigens bereits vergeblich nach einer Alternative gesucht.
mfg
reiner