Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > Also nach langer Fehlersuche hat sich heraus gestellt, dass die Berechnungen des CCPRO perfekt sind. > > Das einzige Problem war, das ich vergessen habe, dass Tag und Monat in der Clock funktion 0 basiert sind... > > > > Also wer den Sonnen Auf- und Untergang für 84453 Mühldorf am Inn berechnen möchte, kann das mit diesem Sub tun: > > > > Dim Woz_moz, Deklination, Zeitdiff, Sonnenaufgang, Sonnenuntergang As Single > > Dim Tageszahl As Integer > > > > Sub Sonnenaufgang_update() > > > > Tageszahl = Tag + 1 + ((Monat) * 30) > > > > Woz_moz = (-0.171 * sin(0.0337 * Tageszahl + 0.465)) - (0.1299 * sin(0.01787 * Tageszahl - 0.168)) > > > > Deklination = 0.4095 * sin((Tageszahl - 80.086) * 0.016906) 'Berechnung Deklination > > > > 'Berechnung Zeitdifferenz , 0.7459 für Mühldorf am Inn > > > > Zeitdiff = 3.8197 * acos((-0.0145 - (0.7459 * sin(Deklination))) / (0.6660 * cos(Deklination)) ) > > > > Sonnenaufgang = 12 - Zeitdiff - Woz_moz - 0.8355 + Stunden_korr 'Sonnenaufgang > > Sonnenuntergang = 12 + Zeitdiff - Woz_moz - 0.8355 + Stunden_korr 'Sonnenuntergang > > > > End Sub > > > > > > > > > Hallo Zusammen, > > > > > > > > > > ich habe ein Sub geschrieben, mit dem man den Sonnenaufgang und Untergang auf Basis von Tag und Monat berechnen kann. > > > > > > > > > > Die Variablen die vorkommen sind alle Single. Die Formeln stimmen, ich hab das im Excel nach geprüft. > > > > > Leider ist das Ergebnis das mit die CCPRO liefert falsch (ca. 1 Monat verschoben). > > > > > > > > > > Kann mir jemand sagen, ob es evtl. "Rundungsfehler" der CCPRO sein könnten? > > > > > > > > > > > > > > > Sub Sonnenaufgang_update() > > > > > > > > > > Tageszahl = Tag + ((Monat-1) * 30) > > > > > > > > > > Woz_moz = (-0.171 * sin(0.0337 * Tageszahl + 0.465)) - (0.1299 * sin(0.01787 * Tageszahl - 0.168)) > > > > > 'Zeitgleichung /in Stunden > > > > > > > > > > Deklination = 0.4095 * sin((Tageszahl - 80.086) * 0.016906) 'Berechnung Deklination > > > > > > > > > > 'Berechnung Zeitdifferenz , 0.7459 für Mühldorf am Inn > > > > > > > > > > Zeitdiff = 3.8197 * acos((-0.0145 - (0.7459 * sin(Deklination))) / (0.6660 * cos(Deklination)) ) > > > > > > > > > > Sonnenaufgang = 12 - Zeitdiff - Woz_moz - 0.8355 + Stunden_korr 'Sonnenaufgang > > > > > Sonnenuntergang = 12 + Zeitdiff - Woz_moz - 0.8355 + Stunden_korr 'Sonnenuntergang > > > > > > > > > > End Sub > > > > > > > > > > > > > > > Danke, > > > > > Simon > > > > > > > > > > > > Hallo, > > > > > > > > hast du schon mal die einzelnen Zwischenergebnisse überprüft? > > > > > > > > Also alles singel kann nicht sein oder gilt das auch für Tageszahl, Tag und Monat? > > > > Dann müssen aber auch die Konstaten 1.0 und 30.0 sein. > > > > Früher gab es immer wieder Problem, wenn man z.B. Single mit einer Int Konstanten verarbeitet. > > > > > > > > Grüße Jörg > > > > > > > > > > Ich würde auch zuerst die Zwichenergebnisse pürfen. > > > Wenn du ganze Zahlen als Singel angibst, dann füge diesen ein .0 hinzu. > > > Das gilt auch für die Konstanten wie Jörg das schon erwähnte. > > > > > Hallo, > > du mischt aber immer noch single mit integer... > Bist du sicher das es immer funktioniert? > Wie geht die Sommerzeitumstellung eigentlich ein? > > Grüße Jörg
