在某些需求中，需要计算给定的任意2点的经纬度之间的距离，比如：你知道两个城市的经纬度数据，那么就可以算出这两座城市之间的大概距离，那在Oracle中，该如何处理呢？下面我们来看下具体的处理过程。

create or replace function rad(d number) return number

is

pi number :=3.141592625;

begin

  return  d * pi/180.0;

end ;

--在Command Window下测试函数

SQL> select rad(360) from dual;

  RAD(360)

----------

6.28318525

create or replace function get_distance(

jd1 number,

wd1 number,

jd2 number,

wd2 number

)

return number is

  earth_padius number := 6378.137;  --地球赤道半径（千米）,地球平均半径=6371.004 千米

  radjd1       number := rad(jd1);

  radjd2       number := rad(jd2);

  a            number := radjd1 - radjd2;

  b            number := rad(wd1) - rad(wd2);

  s            number := 0;

begin

  s := 2 * Asin(Sqrt(power(sin(a/2),2) +cos(radjd1) * cos(radjd2) * power(sin(b/2),2)));

  s := s * earth_padius;

  s := Round(s * 10000) / 10000;

  return s;

end;

注意：该函数计算出来的距离单位为：千米

--在Command Window下测试函数

SQL> select get_distance(106.724347,26.590299,106.703848,26.588635) from dual;

GET_DISTANCE(106.724347,26.590

------------------------------

                        2.2826

经纬度算距离oracle

参考资料：http://blog.csdn.net/iw1210/article/details/9164573