在VBA中匹配位置/座標

Question

我正在尋找一些VBA代碼（算法）以將GPS位置列表（在本例中爲船軌跡）與給定的GPS位置進行匹配。也就是說，列表中的所有位置都位於該位置周圍具有給定半徑的圓內。

查看照片：所以只有所有地點的「綠色地點」匹配。對不起，在Windows Paint手工製作的可憐的圖片;-)

所有位置都以緯度+經度給出，例如52.24782,4.12082。

Answer 1

實測值這一個：http://www.movable-type.co.uk/scripts/latlong.html

我只需要將代碼重寫爲VBA代碼並將其與@Cylian代碼結合使用

Answer 2

功能

Public Function CheckCoords(x#, y#, radius#) As String 
    ' x^2 + y^2 = r^2 
    ' ==> results true if (p,q) fall outside of the circle 
    CheckCoords = IIf((x^2 + y^2) < radius^2, "outside circle", "inside circle") 
End Function 

單位轉換需要實際執行