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 isearth_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;
begins := 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;

参考文献:

给定经纬度计算距离_oracle 根据经纬度计算任意两地之间的距离_weixin_39938724的博客-CSDN博客

在 Oracle 中根据经纬度计算两地之间的距离_oracle计算两个经纬度之间的距离_ytp151730的博客-CSDN博客

获取鼠标点击经纬度-地图属性-示例中心-JS API 示例 | 高德地图API (amap.com)

高德地图 (amap.com)