sql server 计算两个经纬度点之间的距离

这里用到的算法和地球半径等数据均来自网络，此文只作整理记录。

地球半径值采用赤道半径 6378137.0米，这是1980年的国际标准数据。

下面是在数据库中写的自定义函数，传入两个经纬度点的数据，共4个参数，返回以米为单位的两点之间的距离

[sql]  view plain  copy

 print ?

1. CREATE FUNCTION [f_GetDistance]  
2. (   
3. @GPSLng DECIMAL(12,6),  
4. @GPSLat DECIMAL(12,6),  
5. @Lng  DECIMAL(12,6),  
6. @Lat DECIMAL(12,6)  
7. )  
8. RETURNS DECIMAL(12,4)  
9. AS  
10. BEGIN  
11.    DECLARE @result DECIMAL(12,4)  
12.    SELECT @result = 6378137.0*ACOS(SIN(@GPSLat/180*PI())*SIN(@Lat/180*PI())+COS(@GPSLat/180*PI())*COS(@Lat/180*PI())*COS((@GPSLng-@Lng)/180*PI()))  
13.    RETURN @result  
14. END  
15. GO