计算地图上两坐标点之间的距离

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go


ALTER FUNCTION [dbo].[Gps](@gps_1 varchar(80),@gps_2 varchar(80))
returns numeric(10,2)--设置返回值，记住是returns 而不是return
AS

BEGIN

    DECLARE @gps1_w float
    DECLARE @gps1_s float
    DECLARE @gps2_w float
    DECLARE @gps2_s float
    DECLARE @a1 float
    DECLARE @b1 float
    DECLARE @a float
    DECLARE @b float
    declare @s float
    DECLARE @return float
IF @gps_1='' and @gps_2=''
    BEGIN
       SET @return =0.0
    END
ELSE
    BEGIN
     
       SET @gps1_w =Convert(float,Substring(@gps_1,1,Patindex('%,%',@gps_1)-1))
       SET @gps1_s =Convert(float,Substring(@gps_1,Patindex('%,%',@gps_1)+1,20))
       SET @gps2_w =Convert(float,Substring(@gps_2,1,Patindex('%,%',@gps_2)-1))
       SET @gps2_s =Convert(float,Substring(@gps_2,Patindex('%,%',@gps_2)+1,20))
       set @a1=(@gps1_s*Pi()/180.00)
       set @b1=(@gps2_s*Pi()/180.00)
       set @a=@a1-@b1
       set @b=(@gps1_w-@gps2_w)*pi()/180.00
       set @s= 2 * Asin(Sqrt(Power(Sin(@a/ 2), 2) +Cos(@a1) * Cos(@b1) * Power(Sin(@b / 2), 2))) * 6378.137
       SET @return =@s
    END
return @return --返回结果

END

http://www.cnblogs.com/markbum_2008/archive/2011/08/31/sqlserver.html