R = 6365561 * Cos((Val(LatA) + Val(LatB)) / 2 / 180 * 3.1415926536)
getdistance = CLng(Sqr((3.141592654 * R / 180 * Abs(Val(LongA) - Val(LongB))) ^ 2 + (3.141592654 * 6365561 / 180 * Abs(Val(LatA) - Val(LatB))) ^ 2)) / 1000


如果兩點間位于同一個地區(qū)，簡單算法：
先轉(zhuǎn)為MTU經(jīng)緯度
NTU經(jīng)度 = 116.34528 * 100000 = 11634528（NTU）
NTU緯度 = 39.21028 * 100000 = 3921028（NTU）
再計算兩點距離：
比如：點A的經(jīng)度為11695400，緯度為3995400。點B的經(jīng)度為11695300，緯度為3995300。
公式:兩點間距離 = [ (A點經(jīng)度 - B點經(jīng)度)^2 + (A點緯度 - B點緯度)^2 ] ^ (1/2) = [ (11695400 - 11695300)^2+ (3995400 - 3995300)^2 ] ^(1/2) =(10000+10000) ^ (1/2) =141米