《坐标方位角及距离计算小程序》代码——Access实现.docVIP

公用模块： Option Explicit Public Const PI = 3.14159265358979 已知A、B两点坐标计算方位角，JSFWJ的中文意思是计算方位角 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double 已知A、B两点坐标计算方位角函数过程 Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya 如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox 您选择的是同一个点！, vbOKOnly + vbExclamation, 提示信息 JSFWJ = 999999999# End If 计算方位角的值 If vx = 0 And vy 0 Then 与y轴正半轴平行 JSFWJ = RadianToAngle(PI / 2#) ElseIf vx = 0 And vy 0 Then 与y轴负半轴平行 JSFWJ = RadianToAngle(PI * 3# / 2#) ElseIf vy = 0 And vx 0 Then 与x轴正半轴平行 JSFWJ = RadianToAngle(0) ElseIf vy = 0 And vx 0 Then 与x轴负半轴平行 JSFWJ = RadianToAngle(PI) ElseIf vx 0 And vy 0 Then 第一象限 JSFWJ = RadianToAngle(Atn(vy / vx)) ElseIf vx 0 And vy 0 Then 第二象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx 0 And vy 0 Then 第三象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx 0 And vy 0 Then 第四象限 JSFWJ = RadianToAngle(Atn(vy / vx) + 2 * PI) End If End Function 已知A、B两点坐标计算距离，JSJLS的中文意思是计算距离S Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya 如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox 您选择的是同一个点！, vbOKOnly + vbExclamation, 提示信息 JSJLS = End If 计算距离 JSJLS = Sqr(vx * vx + vy * vy) End Function 弧度化角度 Public Function RadianToAngle(ByVal alfa As Double) As Double Dim alfa1 As Double, alfa2 As Double alfa = alfa * 180# / PI alfa = alfa + 0.000000000000001 alfa1 = Fix(alfa) + Fix((alfa - Fix(alfa)) * 60#) / 100# alfa2 = (alfa * 60# - Fix(alfa * 60#)) * 0.006 RadianToAngle = alfa2 + alfa1 End Function 窗体模块： Option Explicit //////////////////////////////////////////////////////简单计算//////////////////////////////////////