已知两点间经纬度计算两点间距离
利用百度地图取出两点间经纬度值,即可计算出两点间距离,此方法适用于两点距离较短的情况。
Function juli(jd1 As Double, wd1 As Double, jd2 As Double, wd2 As Double) As Double
Const earth_r As Double = 6370693.5 '定义地球的半径,单位:米
Const pi As Doubl...
原创
2018-11-08 09:54:02 ·
4849 阅读 ·
0 评论