求助GPS经纬度与百度经纬度的转换方法。

YZC51

zopey 发表于 2018-8-21 17:24
经调试，发现 函数 application.atan2() 有严重误差，替换如下

Public Function Atan2(ByVal y As Do ...

很强大！补充个函数
Function wgs2bd(lat, lon, p)
    wgs2gcjlat = wgs2gcj(lat, lon, 0): wgs2gcjlon = wgs2gcj(lat, lon, 1)

    gcj2bdlat = gcj2bd(wgs2gcjlat, wgs2gcjlon, 0)
    gcj2bdlon = gcj2bd(wgs2gcjlat, wgs2gcjlon, 1)
    If p = 1 Then wgs2bd = gcj2bdlon Else wgs2bd = gcj2bdlat
End Function

YZC51

建议楼主加鲜花鼓励！

zopey

YZC51 发表于 2018-8-21 18:35
很强大！补充个函数
Function wgs2bd(lat, lon, p)
    wgs2gcjlat = wgs2gcj(lat, lon, 0): wgs2gcjlo ...

地球坐标 能 批量 转换为 火星坐标，
反之 知道火星坐标 ，并没有公式直接推算出它的  地球坐标， 只能逐步逼近求解。
这就是 加密的 意义所在吧。