CodeItBetter Programming Another VB Programming Blog

'Math - How to Calculate ArcSin And ArcCos

Option Explicit
 
'We can use ArcTan function, to calculate ArcSin and ArcCos.

Function ArcSin(X As Double) As Double
    ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Function ArcCos(X As Double) As Double
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
 
Private Sub Main()
    MsgBox "ArcSin(1.5) = " & ArcSin(1.5)
    MsgBox "ArcCos(1.5) = " & ArcCos(1.5)
End Sub