应该很有实用性。

Option Explicit
Public Const Pi = 3.14159265 'PI
Public Const R = 6.371229 * 1000000# '地球半径

Function Distance(Lon1 As Double, Lat1 As Double, Lon2 As Double, lat2 As Double) As Double
'该函数用于已知两个点的经纬度信息时的距离计算
'输入的经纬度信息，单位为度
'输出为距离，单位为m

Dim x As Double, y As Double

'PI * R * Cos(((Lat1 + Lat2) / 2) * PI / 180) -- 在两个纬度他们中间纬度的经度间距，即每度经度多少米
x = (Lon2 - Lon1) * Pi * R * Cos(((Lat1 + lat2) / 2) * Pi / 180) / 180 '两个经度差换算的经度距离

'( PI * R )/180 -- 每度纬度多少米
y = (lat2 - Lat1) * Pi * R / 180 '两个纬度差换算得到的纬度距离

Distance = Sqr(x * x + y * y) '两点间的距离，平方和后开根号

End Function

我又这个表格，不知道不是不是一样的

谢谢三楼的宏

谢谢三楼的宏

不错~~~~~~~~~~~~~~~~~~~~~~~~