达梦数据库根据经纬度计算两点之间的距离

在MySQL数据库中可以直接用 st_distance_sphere 函数（单位米）进行计算，例如：

select st_distance_sphere(POINT(经度1,纬度1), POINT(经度2,纬度2))

在达梦数据库中则需要创建自定义函数

1.先创建RAD函数：

CREATE OR REPLACE FUNCTION "模式名"."RAD"("d" IN NUMBER(22, 6))
RETURN NUMBER(22, 6)
AUTHID DEFINER
is
PI number :=3.141592625;
BEGIN
return d* PI/180.0;
END;

2.再创建GetDistance函数：

CREATE OR REPLACE FUNCTION "模式名"."GetDistance"("lng1" IN NUMBER(22, 6),"lat1" IN NUMBER(22, 6),"lng2" IN NUMBER(22, 6),"lat2" IN NUMBER(22, 6))
RETURN NUMBER(22, 6)
AUTHID DEFINER
is
earth_padius number := 6378.393;
radLat1      number := rad(lat1);
radLat2      number := rad(lat2);
a            number := radLat1   - radLat2;
b            number := rad(lng1) - rad(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;

使用示例：

注意单位是千米（如果需要单位米则把6378.393改成6378393），用ROUND函数保留3位小数

select ROUND(GetDistance(经度1,纬度1,经度2,纬度2),3)