Oracle函数计算范围内数据（已核查）

--主函数，纬度在前，经度在后，注意计算结果为千米，如要转为米，请乘以1000

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;

--次函数

CREATE OR REPLACE FUNCTION Radian(d number) RETURN NUMBER

is

PI number :=3.141592625;

begin

return  d* PI/180.0;

end ;