坐标方位角函数代码
Public Function fwj(X, Y) ‘—–方位角计算
Pi = 4 * Atn(1)
If X = 0 And Y > 0 Then
fwj = Pi / 2
ElseIf X = 0 And Y < 0 Then
fwj = 3 * Pi / 2
ElseIf X = 0 And Y = 0 Then
fwj = “无法反算方位角！”
Else
T = Atn(Y / X)
If X < 0 Then
fwj = T + Pi
ElseIf Y < 0 Then
fwj = T + 2 * Pi
Else
fwj = T
End If
End If
End Function
声明：因本站是虚拟物品一旦购买概不退款，请谨慎购买！
加微信：139 5099 9860 拉客服进一个微信群,即可免费获得一个年会员！
任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理（gf#celiang.net 请把#替换成@）。