Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Mondphasen berechnen

Betrifft: Mondphasen berechnen von: WH
Geschrieben am: 26.08.2004 23:18:31

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

  


Betrifft: AW: Mondphasen berechnen von: r.sch.
Geschrieben am: 27.08.2004 08:10:29

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


  


Betrifft: AW: Mondphasen berechnen von: r.sch.
Geschrieben am: 27.08.2004 08:14:02

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


  


Betrifft: http://www.excelformeln.de/tips.html?welcher=49 von: MRP
Geschrieben am: 27.08.2004 08:28:43

und hier als Link: http://www.excelformeln.de/tips.html?welcher=49
Ciao
Manuele Rocco Parrino


 

Beiträge aus den Excel-Beispielen zum Thema "Mondphasen berechnen"