第十三章 常用测量程序设计.pptVIP

第十三章 常用测量程序设计 主要内容： 角度换算 距离计算 方位角计算 坐标转换（重点） 角度换算 度分秒至度的换算 Const EPSILON# = 0.00000000000001 Public Function Deg(dblDms As Double) As Double Dim dblDegree As Double Dim dblMin As Double Dim dblSec As Double dblDms = dblDms + EPSILON dblDegree = Fix(dblDms) dblMin = Fix((dblDms - dblDegree) * 100) dblSec = ((dblDms - dblDegree) * 100 - dblMin) * 100 Deg = dblDegree + dblMin / 60 + dblSec / 3600 End Function 角度换算 度至度分秒的换算 Public Function Dms(dblDeg As Double) As