经纬度测距 - 精易论坛 - Powered by Discuz!

子程序名	返回值类型	公开	备注
计算距离	双精度小数型
参数名	类型	参考	可空	数组	备注
纬度1	双精度小数型
经度1	双精度小数型
纬度2	双精度小数型
经度2	双精度小数型

变量名	类型	静态	数组	备注
地球半径	双精度小数型
弧度转换系数	双精度小数型
纬度1_弧度	双精度小数型
纬度2_弧度	双精度小数型
经度1_弧度	双精度小数型
经度2_弧度	双精度小数型
纬度差	双精度小数型
经度差	双精度小数型
a	双精度小数型
c	双精度小数型

地球半径＝ 6371
弧度转换系数＝ 0.01745329251994 ' 度 = 0.017453292519943 弧度
纬度1_弧度＝纬度1 × 弧度转换系数
纬度2_弧度＝纬度2 × 弧度转换系数
经度1_弧度＝经度1 × 弧度转换系数
经度2_弧度＝经度2 × 弧度转换系数
纬度差＝纬度2_弧度－纬度1_弧度
经度差＝经度2_弧度－经度1_弧度
a ＝求正弦 (纬度差 ÷ 2) × 求正弦 (纬度差 ÷ 2) ＋求余弦 (纬度1_弧度) × 求余弦 (纬度2_弧度) × 求正弦 (经度差 ÷ 2) × 求正弦 (经度差 ÷ 2)
c ＝ 2 × 求反正切 (求平方根 (a))
返回 (地球半径 × c)