发表日期:2019-11 文章编辑:小灯 浏览次数:621
复制代码 代码如下:
go
--创建经纬度距离计算函数
CREATEFUNCTION [dbo].[fnGetDistance]
--LatBegin 开始经度
--LngBegin 开始维度
(@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL)
RETURNSFLOAT
AS
BEGIN
--距离(千米)
DECLARE @Distance REAL
DECLARE @EARTH_RADIUS REAL
SET @EARTH_RADIUS = 6378.137
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
--SET @Distance = Round(@Distance * 10000) / 10000
RETURN @Distance
END
@Distance的单位为:千米
日期:2019-12 浏览次数:4041
日期:2019-12 浏览次数:3467
日期:2019-12 浏览次数:3254
日期:2019-12 浏览次数:3478
日期:2019-12 浏览次数:3586
日期:2019-12 浏览次数:3366
日期:2019-12 浏览次数:3629
日期:2019-12 浏览次数:3308
日期:2019-12 浏览次数:3774
日期:2019-12 浏览次数:3832
日期:2019-12 浏览次数:3609
日期:2019-12 浏览次数:4144
日期:2019-12 浏览次数:3533
日期:2019-12 浏览次数:3382
日期:2019-12 浏览次数:3429
日期:2019-12 浏览次数:3322
日期:2019-12 浏览次数:3606
日期:2019-12 浏览次数:3446
日期:2019-12 浏览次数:3446
日期:2019-12 浏览次数:4819
日期:2019-12 浏览次数:3902
日期:2019-12 浏览次数:3268
日期:2019-12 浏览次数:3344
日期:2019-12 浏览次数:3400
日期:2019-12 浏览次数:4128
日期:2019-12 浏览次数:3265
日期:2019-12 浏览次数:3245
日期:2019-12 浏览次数:3502
日期:2019-12 浏览次数:3176
日期:2019-12 浏览次数:3410
Copyright ? 2013-2018 Tadeng NetWork Technology Co., LTD. All Rights Reserved.