由大地坐标转换为经纬度0.docVIP

由大地坐标转换为经纬度 Private Sub Form_Paint()Private ,汉译为私有的,指明本过程只在当前模块下有效 Cls 清除显示屏 CurrentX=0 设置开始的X坐标为零 CurrentY=0 设置开始的Y坐标为零 Dim dh,dk As Integer Dim l0,l1,b0,b1,x0,x1,y0,y1,a,f,e,ee,e1,e2,nn,t,c,aa,m,d,r,u,fai,ipl As Double ipl=3.1415926535898/180 dk=6 6度带宽 a=6378245.0 坐标系参数:54北京为6378245.0