Fórmulas matemáticas trigonométricas

A continuación expongo algunas funciones matemáticas trigonométricas que pueden ser de utilidad:

El arcocoseno:

Function ArcCos(X As Double) As Double
If X = 1 Then
ArcCos = 0
ElseIf X = -1 Then
ArcCos = -PI()
Else
ArcCos = Atn(X / Sqr(-X * X + 1)) + PI() / 2
End If
End Function

Pi:

Function PI() As Double
PI = Atn(1) * 4
End Function

Más en: access.jessy.free.fr