DominoArea.org [Archive]

[syntax="ls"]Function ArcSec(x As Double) As Double
ArcSec = Atn(x / Sqr(x * x - 1)) + Sgn(Sgn(x) - 1) * Pi / 2
End Function[/syntax]