DominoArea.org [Archive]

[syntax="ls"]Function ArcSin(x As Double) As Double
If x = 1 Then
ArcSin = Pi / 2
ElseIf x = -1 Then
ArcSin = -Pi / 2
Else
ArcSin = Atn(x / Sqr(-x * x + 1))
End If
End Function[/syntax]