Arcus Funktionen oder auch inverse Funktionen sind die Umkehrfunktionen. Für den Arcus Tangens gibt es in VBA die Funktion atn
für den Arcussinus oder Arcuscosinus gibt es diese Möglichkeit leider nicht. Diese müssen aus dem Arcustangens abgeleitet werden.
Die folgenden Funktionen habe ich nicht selbst geschrieben sondern auf dbwiki.net gefunden.
Arcus Cosinus
'Erstellen der Funktion ArcCos
Public Function ArcCos(ByVal x As Double) As Double
If x = 1# Then
ArcCos = 0#
ElseIf x = -1 Then
ArcCos = PI
ElseIf x < 1# And x > -1# Then
ArcCos = Atn(-x / Sqr((-x * x) + 1)) + PI / 2#
End If
End Function
Arcus Sinus
'Erstellen der Fuinktion ArcSin
Public Function ArcSin(ByVal x As Double) As Double
If x = 1 Then
ArcSin = PI / 2#
ElseIf x = -1 Then
ArcSin = -PI / 2#
ElseIf x < 1# And x > -1# Then
ArcSin = Atn(x / Sqr((-x * x) + 1))
End If
End Function