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. ![Traurig](http://www.roboternetz.de/phpBB2/images/smiles/icon_sad.gif)
Was habe ich falsch gemacht?
Hier mal mein Code:
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")
Lesezeichen