CREATE OR REPLACE FUNCTION Radian(d number) RETURN NUMBER
is
PI number :=3.141592625;
begin
return d* PI/180.0;
end ;
--测试函数
select Radian(360) from dual;
CREATE OR REPLACE FUNCTION GetDistance(lat1 number,
lng1 number,
lat2 number,
lng2 number) RETURN NUMBER is
earth_padius number := 6378.137;
radLat1 number := Radian(lat1);
radLat2 number := Radian(lat2);
a number := radLat1 - radLat2;
b number := Radian(lng1) - Radian(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) / 10000;
return s;
end;
--测试函数
select GetDistance('108.951311','34.898615','108.954245','34.897581') from dual;
SELECT GetDistance(34.898681, 108.95003, 34.253693, 108.993046) FROM dual;这样传参 纬度 经度 不然计算距离不准确
参考文献:
给定经纬度计算距离_oracle 根据经纬度计算任意两地之间的距离_weixin_39938724的博客-CSDN博客
在 Oracle 中根据经纬度计算两地之间的距离_oracle计算两个经纬度之间的距离_ytp151730的博客-CSDN博客