计算经纬度距离 (2018-02-08 13:27:36)转载▼
    分类： 数据库
    —计算地球上两个坐标点（经度，纬度）之间距离sql函数
    —作者：lordbaby
    —整理：www.aspbc.com
    ALTER FUNCTION [dbo].fnGetDistance RETURNS FLOAT
    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