[求助]已知两个点求角度?

vocabulary

各位大侠
      已知两个点PT1和PT2,如何用VBA求出连接这两个点的线段的角度(弧度),另外知道这条线的角度后,VBA里有没有类似LISP里的POLAR()的函数来求得顺着该角度走X距离的点,先谢谢了!

fjfhgdwfn

Public Function fwj(ByVal x As Double, ByVal y As Double) As Double
If x = 0 Then
    If y > 0 Then
    fwj = 3.14159265358979 / 2
    Else
    fwj = 3.14159265358979 * 1.5
    End If
Else
    fwj = Atn(y / x)
    If x > 0 And y > 0 Then fwj = fwj
    If x > 0 And y <= 0 Then fwj = 2 * 3.14159265358979 + fwj
  
    If x < 0 Then fwj = fwj + 3.14159265358979
End If
End Function

不知道对你有帮助没有