VBA提取最短距离

最新推荐文章于 2023-05-24 21:05:26 发布

qq_44390640

最新推荐文章于 2023-05-24 21:05:26 发布

阅读量276

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/qq_44390640/article/details/124755323

版权

地理计算距离计算余弦定律数据源 JOIN操作

关键词由CSDN通过智能技术生成

VBA 专栏收录该内容

40 篇文章 14 订阅

订阅专栏

提取最短距离

SELECT D.LO1,D.LA1,D.LO2,D.LA2,D.DIS FROM  ( SELECT  A.LO AS LO1,A.LA AS LA1,B.LO AS LO2,B.LA AS LA2,111.12*atn(sqr(1-(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180))*(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180)))/(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180)))*180/3.1415  AS DIS  FROM [DX.CSV] A LEFT JOIN [YD.CSV] B ON A.LO<>B.LO AND A.LA<>B.LO) D ,(SELECT LO1,LA1,MIN(DIS) AS DIS_MIN FROM (SELECT  A.LO AS LO1,A.LA AS LA1,B.LO AS LO2,B.LA AS LA2,111.12*atn(sqr(1-(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180))*(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180)))/(SIN(a.LA*3.1415/180)*SIN(b.LA*3.1415/180)+COS(a.LA*3.1415/180)*COS(b.LA*3.1415/180)*COS((b.LO-a.LO)*3.1415/180)))*180/3.1415  AS DIS  FROM [DX.CSV] A LEFT JOIN [YD.CSV] B ON A.LO<>B.LO AND A.LA<>B.LO) GROUP BY LO1,LA1) C WHERE C.LO1=D.LO1 AND C.LA1=D.LA1 AND C.DIS_MIN=D.DIS