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

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

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

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

CREATE FUNCTION [f_GetDistance]
( 
@GPSLng DECIMAL(12,6),
@GPSLat DECIMAL(12,6),
@Lng  DECIMAL(12,6),
@Lat DECIMAL(12,6)
)
RETURNS DECIMAL(12,4)
AS
BEGIN
   DECLARE @result DECIMAL(12,4)
   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()))
   RETURN @result
END
GO