Sonnenbahnberechnung mit BASCOM

[dolivo]

Ich habe die Erklärung etwas kurz gelassen, weil die Berechnung im Astrolexikon gut beschrieben ist. Ich hatte das ja nur auf Bascom umgesetzt und die Werte, die für den Ort konstant sind, gleich eingesetzt um die Rechenzeit zu kürzen.
Für Wien muss man bei der Berechnung der Zeitdifferenz so rechnen:
B=pi*48,267/180 = 0,843, sin B= 0,747 (natürlich mit Bogenmaß rechnen);
Sonnenaufgang: 16,4/15 = 1,093
Viel Erfolg
dolivo

[Accenter]

Danke! Teste ich gleich mal  

[Accenter]

Ich habe jetzt mal den Code nach deinen Werten die du mir errechnet hast umgebaut. Die Sonnenuntergangszeit stimmt auf die Minute genau, jedoch liegt die Sonnenaufgangszeit um 10 Minuten daneben.  
Was habe ich falsch gemacht?

Hier mal mein Code:

 Zone = 1
 Term1 = 0.0337 * Tagimjahr
 Term1 = Term1 + 0.465
 Term1 = Sin(term1)
 Term1 = -0.171 * Term1
 Term2 = 0.01787 * Tagimjahr
 Term2 = Term2 - 0.168
 Term2 = Sin(term2)
 Term2 = 0.1299 * Term2
 Woz_moz = Term1 - Term2                                    'Zeitgleichung /in Stunden
 Diff2 = Woz_moz * 60                                       'auf Minuten gerechnet

 'Berechnung Deklination
 Term1 = Tagimjahr - 80.086
 Term1 = Term1 * 0.016906
 Term1 = Sin(term1)
 Deklination = Term1 * 0.4095

 'Berechnung Zeitdifferenz
 Term1 = Sin(deklination)
 Term1 = 0.747 * Term1                                      'B=pi*48,267/180 = 0,843, sin B= 0,747
 Term1 = -0.0145 - Term1                                    'sin(h)=-0,0145
 Term2 = Cos(deklination)
 Term2 = 0.6024 * Term2                                     'cos(B)=0,6294
 Zeitdiff = Term1 / Term2
 Zeitdiff = Acos(zeitdiff)
 Zeitdiff = 3.8197 * Zeitdiff                               '12/pi=3,8197

 'Sonnenaufgang
 Sa = 12 - Zeitdiff
 Sa = Sa - Woz_moz
 Sa = Sa - 1.093                                            '16.4 / 15 = 1.093
 Sa = Sa + Zone                                             'MEZ, bei MESZ +2
 Samin = Frac(sa)
 Sahour = Sa - Samin
 Samin1 = Samin * 60
 Sastrmin = Str(samin1)
 Sastrmin = Format(sastrmin , "00")

 'Sonnenuntergang
 Su = 12 + Zeitdiff
 Su = Su - Woz_moz
 Su = Su - 0.9067
 Su = Su + Zone
 Sumin = Frac(su)
 Suhour = Su - Sumin
 Sumin1 = Sumin * 60
 Sustrmin = Str(sumin1)
 Sustrmin = Format(sustrmin , "00")

[dolivo]

Natürlich muss auch bei der Sonnenuntergangsberechnung Dein Wert von Wien eingesetzt werden. Also auch 1,093 statt o,9067!

'Sonnenuntergang Su = 12 + Zeitdiff
Su = Su - Woz_moz
Su = Su - 0.9067
...

[Accenter]

danke, oft sieht man den wald vor lauter bäumen nicht  

[charly013]

moinmoin,

danke dolivo f. das schoene Programm, habe es leicht angepasst,
man kann jetzt in die variablen Lg & Bg seine eigenen Koordinaten
eintragen, fertig ( Tag der berechnung nicht vergessen )
viel spass damit