计算方位角_测量计算方位角万能公式及VB、VBA源代码

'方位角计算函数 Azimuth()

'Sx为起点X，Sy为起点Y

'Ex为终点X，Ey为终点Y

'Style指明返回值格式

'Style=-1为弧度格式

'Style=0为“DD MM SS”格式

'Style=1为“DD-MM-SS”格式

'Style=2为“DD°MMˊSS""”格式

'Style=其它值时返回十进制度值

Function Azimuth(Sx As Double, Sy As Double, Ex As Double, Ey As Double, Style As Integer)

Dim DltX As Double, DltY As Double, A_tmp As Double, Pi As Double

Pi = Atn(1) * 4 '定义PI值

DltX = Ex - Sx

DltY = Ey - Sy + 1E-20

A_tmp = Pi * (1 - Sgn(DltY) / 2) - Atn(DltX / DltY) '计算方位角

A_tmp = A_tmp * 180 / Pi '转换为360进制角度

Azimuth = Deg2DMS(A_tmp, Style)

End Function

'转换角度为度分秒

'Style=-1为弧度格式

'Style=0为“DD MM SS”格式

'Style=1为“DD-MM-SS”格式

'Style=2为“DD°MMˊSS""”格式

'Style=其它值时返回十进制度值

Function Deg2DMS(DegValue As Double, Style As Integer)

Dim tD As Integer, tM As Integer, Ts As Double, tmp As Double

tD = Int(DegValue)

tmp = (DegValue - tD) * 60

tM = Int(tmp)

tmp = (tmp - tM) * 60

Ts = Round(tmp, 1)

Select Case Style

Case -1 '返回弧度

Deg2DMS = DegValue * Atn(1) * 4 / 180

Case 0

Deg2DMS = tD & " " & Format(tM, "00") & " " & Format(Ts, "00.0")

Case 1

Deg2DMS = tD & "-" & Format(tM, "00") & "-" & Format(Ts, "00.0")

Case 2

Deg2DMS = tD & "°" & Format(tM, "00") & "ˊ" & Format(Ts, "00.0") & """"

Case Else

Deg2DMS = DegValue

End Select

End Function

Function aa(area1 As Double, area2 As Double) As Double

Dim rat As Double

rat = area1 / area2