vba - VBA 有 ATan2 功能吗？

Question

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

我可以 implement atan2我自己，但如果可能的话，我宁愿避免这样做。

Answer 1

正如 MarkJ 之前指出的，accepted answer当 X < 0 且 y=0 时会失败。我相信以下内容将始终有效:

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

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