Openlayers 形式で配置された Web サービス座標から取得しますか??
座標は(オランダで)次のようになります。
X = 217382.52712700056
Y = 576653.00667405012
5.34343、51.34356 のような経度/緯度 (10 進形式) に変換したいと思います。
Spherical Mercator Meters 形式だと思いました。そして、この式を使用して変換しました。しかし、結果は意味がありません。
Dim mercX As Double = 217382.52712700056
Dim mercY As Double = 576653.00667405012
Dim rMajor As Integer = 6378137
Dim shift As Double = Math.PI * rMajor
Dim lon As Double = mercX / shift * 180.0
Dim lat As Double = mercY / shift * 180.0
lat = 180 / Math.PI * (2 * Math.Atan(Math.Exp(lat * Math.PI / 180.0)) - Math.PI / 2.0)
うまくいけば、誰かが私をさらに助けてくれます....