方位角的计算方法有多种，根据公式与工具有不同，现有四种计算方法：
一、测量教材上的计算方法，需要判断象限，对了解原理有一定帮助，但在实际工作中不太实用，在此不予介绍，使用此方法计算的VB或VBA代码如下：
Public Const PI = 3.14159265359
Function Pol（x1 As Double， y1 As Double， x2 As Double， y2 As Double） As Double \’计算直线的方位角
Dim Sub_y As Double
Sub_y = Abs（y2 – y1）…
