Office: Sunset und Sunrise - per VBA

Hallo zusammen,

für eine Arbeitszeitberechnung bräuchte ich eine Lösung die mir Sunset und Sunrise in Abhängigkeit vom Standort berechnet. Nach dem ich mehrere Firmenstandorte um die Welt habe - und diese Berechnung automatisch für jeden Tag je nach Login "Ort" ausgegeben werden soll - müsste ich das irgendwie anhand der Koordinaten berechnen.

Die Koordinaten hab ich natürlich - aber noch einen umsetzbaren VBA Code der mir dann den Sonnenaufgang bzw. Untergang berechnet.

Hab bis jetzt nur Java Scripts gefunden - sind aber in Access wertlos.

Hat jemand von euch ne Formel wie ich das berechnen kann?
Sollte ja mit Datum und Koordinaten machbar sein, oder?

Danke für euere Mithilfe

Bjoern

 

Hallo Schlauchi,

hast Du hier schon mal geschaut:
http://lexikon.astronomie.info/zeitgleichung/

Sollte so machbar sein.

LG

 

...

Schaut ja komplex aus - aber ich werds probieren. Des mit dem ARCCOS muss ich noch hinbekommen - da Access das nicht kennt.

Danke schon mal

 

Re: ...

Da könnte Dir vielleicht Wikipedia weiterhelfen, wo sich u.a findet:

Code:

arccos z = -i ln( z + ...

Gruß, Michael

 

Hallo Bjoern,

falls Du Excel installiert hast, könntest Du auch die Excel-Library über Menü "Extras > Verweise..." einbinden in die Liste der verfügbaren Verweise ("Microsoft Excel 12.0 Object Library").
Anschließend kannst Du einen Funktionsaufrauf wie zB. folgenden definieren:

Code:

Public Function ArcCosinus(x As Double) As Double
  ArcCosinus = Excel.WorksheetFunction.Acos(x)
End Function

oder aber Du programmierst die Reihenentwicklung der ArcCos-Funktion (die auch in der zitierten Vikipedia-Site enthalten ist).

 

Hallo Bjoern,

nachfolgend die programmierten Funktionen für ArcSin(x) und ArcCos(x):

Code:

Private Const cPi# = 3.14159265358979 'Konstante pi
Private Const cEps# = 0.0000000000001 'Genauigkeitsschranke

Function ArcSin(x As Double) As Double
  Dim Su As Double                'Reihensumme
  Dim b As Double, b1 As Double   'Reihenglieder
  Dim I As Long                   'Index der Reihenglieder
  Dim x2 As Double
  x2 = x * x
  If Abs(x) > 1# Then
    ArcSin = 0#
    Err.Raise 6                   'Falls nicht -1 <= x <= 1: Überlauf
  ElseIf x2 > 0.5 Then
    ArcSin = Sgn(x) * ArcCos(Sqr(1 - x2))
  Else
    I = 1: b = x: Su = b          '1.Glied + Reihensumme
    Do
      b = b * I / (I + 1) * x2
      I = I + 2
      b1 = b / I                  'i.Glied
      Su = Su + b1                'i.Reihensumme
    Loop Until Abs(b1) < cEps     'i.Glied testen auf Genauigkeit
    ArcSin = Su
  End If
End Function

'
Function ArcCos(x As Double) As Double
  ArcCos = cPi / 2# - ArcSin(x)
End Function

Gemäß der Taylorreihenentwicklung wie oben auf der Vikipedia-Site zitiert.

Es gibt aber auch in MSDN eine Liste für abgeleitete Funktionen:
http://msdn.microsoft.com/de-de/library/w3t84e33.aspx