根據經緯度計算地球上兩點之間的距離的Sql Server函數

單位是千米。

ALTER FUNCTION dbo.fnGetDistance(@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL)RETURNS FLOATASBEGINDECLARE @Distance REALDECLARE @EARTH_RADIUS REALSET @EARTH_RADIUS = 6378.137DECLARE @RadLatBegin REAL, @RadLatEnd REAL, @RadLatDiff REAL, @RadLngDiff REALSET @RadLatBegin = @LatBegin * PI() / 180.0SET @RadLatEnd = @LatEnd * PI() / 180.0SET @RadLatDiff = @RadLatBegin - @RadLatEndSET @RadLngDiff = @LngBegin * PI() / 180.0 - @LngEnd * PI() / 180.0SET @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) / 10000RETURN @DistanceEND

 

源演算法來自“http://www.cnblogs.com/Aricc/archive/2010/05/05/1727711.html”，我只是把它改成了Sql Server的函數。