oracle function实现两点间距离API

基于上一篇博文https://blog.csdn.net/ardo_pass/article/details/96422382

将java实现修改为存储过程

create or replace function func_point_distance(startLng in float, startLat in float, endLng in float, endLat in float) return float
/**
* 计算两坐标点间距离函数
*/
       is
  v_PI float(40):=3.14159265358979323846; --PI
  v_R float(40):=6371.004;

  v_lat1 float(40):=(v_PI/180)*startLat;
  v_lat2 float(40):=(v_PI/180)*endLat;
  v_lon1 float(40):=(v_PI/180)*startLng;                       
  v_lon2 float(40):=(v_PI/180)*endLng;                        

  v_dis float(40);

begin
   v_dis := ACOS(SIN(v_lat1)*SIN(v_lat2)+COS(v_lat1)*COS(v_lat2)*COS(v_lon2-v_lon1))*v_R;

   return ROUND(v_dis * 1000);
end func_point_distance;

执行sql:

select func_point_distance(117.122538, 39.108458, 117.122205, 39.105203) from dual;

结果：

363