函数计算两个坐标点距离代码,PLSQL代码库,德仔网

代码语言

代码分类

【PLSQL】函数计算两个坐标点距离

作者:修洁 / 发布于2017/2/7/ 1101

主要两个函数：
CREATE OR REPLACE FUNCTION RAD(d number) RETURN NUMBER  
is  
PI number :=3.141592625;  
  
begin  
return  d* PI/180.0;  
end ;  


CREATE OR REPLACE FUNCTION GetDistance(lat1 number,  
                                       lng1 number,  
                                       lat2 number,  
                                       lng2 number) RETURN NUMBER is  
  earth_padius number := 6378.137;  
  radLat1      number := rad(lat1);  
  radLat2      number := rad(lat2);  
  a            number := radLat1 - radLat2;  
  b            number := rad(lng1) - rad(lng2);  
  s            number := 0;  
begin  
  s := 2 *  
       Asin(Sqrt(power(sin(a / 2), 2) +  
                 cos(radLat1) * cos(radLat2) * power(sin(b / 2), 2)));  
  s := s * earth_padius;  
  s := Round(s * 10000)/10;--单位米  
  --s := Round(s * 10000)/10000;--单位千米  
  return s;  
  
end;

试试其它关键字

同语言下

可能有用的

修洁贡献的其它代码(11)