VBA有ATan2函数吗？

我想计算一下atan2在 VBA 中，但我不确定该函数是否存在（或者甚至不确定在哪里可以找到内置 VBA 函数的规范列表）。我没有使用 Excel，因此无法调用工作表。

I could 实施 atan2我自己，但如果可能的话我宁愿避免这样做。

正如 MarkJ 之前指出的，接受的答案当 X

Function ArcTan2(X As Double, Y As Double) As Double

    Private Const PI As Double = 3.14159265358979
    Private Const PI_2 As Double = 1.5707963267949

    Select Case X
        Case Is > 0
            ArcTan2 = Atn(Y / X)
        Case Is < 0
            ArcTan2 = Atn(Y / X) + PI * Sgn(Y)
            If Y = 0 Then ArcTan2 = ArcTan2 + PI
        Case Is = 0
            ArcTan2 = PI_2 * Sgn(Y)
    End Select

End Function

它利用了 Sgn(0) 在 x 和 y 都为 0 的情况下返回 0 的优势。