坐标点距离计算

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

Cell                         Cell-Lon Cell-Lat Cal-Lon         Cal-Lat         Distance
H055549绍兴城东供销大厦1800 120.61158 29.99164 120.611648 29.991658 6.848069585