已知两点间经纬度计算两点间距离

利用百度地图取出两点间经纬度值，即可计算出两点间距离，此方法适用于两点距离较短的情况。

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 Double = 3.1415926535   '定义π的值
Dim ew1, ns1, ew2, ns2 As Double  
Dim dx, dy, dew, distance As Double
ew1 = jd1 * pi / 180   '将角度值转化为弧度值
ns1 = wd1 * pi / 180
ew2 = jd2 * pi / 180
ns2 = wd2 * pi / 180
dew = Abs(ew1 - ew2)      '两点间的经度差
dx = earth_r * Cos((ns1 + ns2) / 2) * dew '计算两点之间东西方向距离
dy = earth_r * Abs(ns1 - ns2)       '计算两点之间南北方向距离
juli = (dx ^ 2 + dy ^ 2) ^ 0.5  '利用勾股定理计算两点间距离
End Function