Overloads Shared Function Azimut(ByVal aktDatum As Date) As Double
  Debug.WriteLine(Deklination(aktDatum))
        Debug.WriteLine(Stundenwinkel(aktDatum))
        Debug.WriteLine(Höhe(aktDatum))
 
        Select Case Stundenwinkel(aktDatum)
            Case Is > 90
                Return 180 - (Asinus(Cosinus(Deklination(aktDatum)) * Sinus( _
                  Stundenwinkel(aktDatum)) / Cosinus(Höhe)))
            Case Is < -90
                Return -180 - (Asinus(Cosinus(Deklination(aktDatum)) * Sinus( _
                  Stundenwinkel(aktDatum)) / Cosinus(Höhe)))
            Case Else
                Return Asinus(Cosinus(Deklination(aktDatum)) * Sinus( _
                  Stundenwinkel(aktDatum)) / Cosinus(Höhe))
        End Select
end function