SQLSERVER 根据经纬度计算距离差

SQL SERVER 根据地图经纬度计算距离的公式

go

--创建经纬度距离计算函数

CREATEFUNCTION [dbo].[fnGetDistance]

--LatBegin开始经度

--LngBegin开始维度

(@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL)

RETURNSFLOAT

AS

BEGIN

--距离(千米)

DECLARE @DistanceREAL

DECLARE @EARTH_RADIUSREAL

SET @EARTH_RADIUS = 6378.137

DECLARE @RadLatBeginREAL,

@RadLatEndREAL,

@RadLatDiffREAL,

@RadLngDiffREAL

SET @RadLatBegin = @LatBegin *PI()/ 180.0

SET @RadLatEnd = @LatEnd *PI()/ 180.0

SET @RadLatDiff = @RadLatBegin - @RadLatEnd

SET @RadLngDiff = @LngBegin *PI()/ 180.0 - @LngEnd *PI()/ 180.0

SET @Distance = 2 *ASIN(

SQRT(

POWER(SIN(@RadLatDiff / 2), 2)+COS(@RadLatBegin)*COS(@RadLatEnd)

*POWER(SIN(@RadLngDiff / 2), 2)

)

)

SET @Distance = @Distance * @EARTH_RADIUS

--SET @Distance = Round(@Distance * 10000) / 10000

RETURN @Distance

END

@Distance的单位为:千米