Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mondphasen berechnen

Mondphasen berechnen
26.08.2004 23:18:31
WH
Hallo,
für eine VBA-Applikation suche ich eine Funktion, die Voll- und Neumond errechnen kann - und zwar unbedingt für Tage ÜBER DAS JAHR 3000 HINAUS.
z.B.: Function IstVollMondTag(day) liefer TRUE wenn an diesem Tag Vollmond ist....
Ist euch was bekannt?
Danke
Wolfgang

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mondphasen berechnen
r.sch.
Hi Wolfgang,
das hie hab ich aus diesem Forum.

Function Mondtag(t)
' 0 ist Neumond
Y1 = Year(t)
m = month(t)
d = Day(t)
C = 0.001
M9 = (-1) * Int(((14 - m) / 12) + C)
J1 = d - 2447095 + Int((1461 * (Y1 + 4800 + M9) / 4) + C)
J2 = J1 + Int((367 * (m - 2 - 12 * M9) / 12) + C)
J2 = J2 - Int((3 * (Y1 + 4900 + M9) / 400) + C)
M5 = J2 - 23743
M6 = M5 / 29.530588
m = Int(M5 - Int(M6) * 29.530588)
Select Case m
Case 0
Mondtag = "N"
Case 1 To 6
Mondtag = ""
Case 7
Mondtag = "z"
Case 9 To 13
Mondtag = ""
Case 14
Mondtag = "V"
Case 15 To 20
Mondtag = ""
Case 21
Mondtag = "a"
Case 22 To 27
Mondtag = ""
Case 28
Mondtag = ""
Case Else
Mondtag = ""
End Select
End Function

Gruß
Reinhard
Anzeige
AW: Mondphasen berechnen
r.sch.
sorry nicht alles gelesen: ..über Jahr 3000 hinaus weiß ich nicht. Such mal nach 'ewiger Kalender', es gibt da 'nen Zahnarzt aus dem ?Saarland? mit 'ner Site über Astronomie und Astrologie.
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige