SQL函数之 计算地球上两个坐标点距离

SQL函数

GO--计算地球上两个坐标点（经度，纬度）之间距离sql函数CREATE FUNCTION [dbo].[GetDistance](@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL) RETURNS FLOAT  ASBEGIN  --距离(米)  DECLARE @Distance REAL  DECLARE @EARTH_RADIUS REAL  SET @EARTH_RADIUS = 6371393  DECLARE @RadLatBegin REAL,@RadLatEnd REAL,@RadLatDiff REAL,@RadLngDiff REAL  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    RETURN @DistanceEND

SQL 自带数据类型 GEOGRAPHY ,函数 ： STDistance

GO--计算地球上两个坐标点（经度，纬度）之间距离sql函数CREATE FUNCTION [dbo].[GetDistanceByNative](@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL) RETURNS FLOAT  ASBEGIN  --距离(米)  DECLARE @Distance REAL  Set @Distance=geography::Point(@LatBegin, @LngBegin, 4326).STDistance(geography::Point(@LatEnd,@LngEnd, 4326))  RETURN @DistanceEND