ich versuche seit geraumer Zeit eine Funktion für die Mondphasen (Neu-, Halb- und Vollmond) zu finden. Ich war bereits auf diversen Internetseiten (astroexcel.de, etc.) bin aber äusserst unzufrieden, da ich hier auch nichts gefunden habe. Desweiteren habe ich auch schon in der Recherche gestöbert und dabei eine Formel (s.u.) gefunden, wenn ich aber hier versuche den Vollmond für Januar zu ermitteln bekomme ich als Datum den 17.01.2003 richtig lt. deutschen Kalendern ist aber der 18.01.2003.
Wer kennt eine korrekt arbeitende Formel oder eine Internetseite, wo ich mir die Formel besorgen kann? Vielen Dank.
Function IstVollmondtag(Datum As Date) As Boolean
Const SynodMonat As Double = 29.530588
Const SynodStart As Double = 105.6213922
Dim OK As Boolean
Dim DatumDbl As Double
Dim DatumLng As Long
Dim DatumHilf As Date
Dim i As Long
If Year(Datum) > 1900 And Year(Datum) < 2100 Then
OK = False
For i = 1 To 2470
DatumDbl = SynodStart + i * SynodMonat
DatumLng = Int(DatumDbl)
DatumHilf = CDate(DatumLng)
If DatumHilf = Datum Then
OK = True
Exit For
End If
Next i
Else
OK = ""
End If
IstVollmondtag = OK
End Function