2

GPS 位置のリスト (この場合は船の軌跡) を特定の GPS 位置に一致させるための VBA コード (アルゴリズム) を探しています。つまり、その場所を中心とした特定の半径の円内にあるリストのすべての場所です。

画像を参照してください: すべての場所の「緑の場所」のみが一致します。Windows ペイントで手作りした下手な写真で申し訳ありません ;-)

すべての場所は緯度 + 経度で表されます (例: 52.24782, 4.12082)。

場所

4

2 に答える 2

0

これを見つけました：http ：//www.movable-type.co.uk/scripts/latlong.html

コードをVBAコードに書き直して、@Cylianのコードと組み合わせるだけです。

于 2012-06-12T13:18:42.170 に答える
0

関数

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

実用化に必要な単位換算

于 2012-06-12T10:19:28.730 に答える