根据经纬度获取两点之间距离

最新推荐文章于 2023-03-03 15:30:47 发布

hal813

最新推荐文章于 2023-03-03 15:30:47 发布

阅读量85

点赞数

分类专栏： oracle 文章标签：数据库开发 intellij-idea

本文链接：https://blog.csdn.net/hal456/article/details/120450535

版权

oracle 专栏收录该内容

7 篇文章 1 订阅

订阅专栏

创建获得弧度的函数

CREATE OR REPLACE
FUNCTION Radian(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 := 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;