Sonnenbahnberechnung mit BASCOM

[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")