主题：谷歌经纬度转百度经纬度

谷歌地图经纬度 想要转换为百度地图经纬度，无解了。有明白的大神吗？

 

http://developer.baidu.com/map/help_move.html

 

http://www.haoservice.com/docs/9

 

http://ditujiupian.com/

 

http://www.juhe.cn/docs/api/id/13/aid/28

 

 

谢谢甜老师，这个想批量操作，能解决吗，我看很多接口都不给用了。

 注册成为开发者才能调用

 如果不调用api，你看看此运算能否满足吧。

 

http://www.open-open.com/code/view/1421914070750

 

甜老师，这个JAVA代码 是真心看不懂  能帮我改成咱们foxtable的代码吗？我就可以批量操作了！！也不知道方便不方便。。谢谢甜老师。

 一样的意思

 

Dim v As Double = Math.PI * 3000.0 / 180.0
Dim x As Double = 114.082163843
Dim y As Double = 32.1287736098
Dim z As Double = math.Sqrt(x * x + y * y) + 0.00002 * Math.Sin(y * v)
Dim t As Double = Math.Atan2(y, x) + 0.000003 * math.Cos(x * v)
Dim lat As Double = z * math.sin(t) + 0.006
Dim lng As Double = z * math.cos(t) + 0.0065

msgbox(lat & "  " & lng)

谢谢甜老师，明天试验一下，太厉害了 哈哈。

甜老师，我想把 X和Y分别从表AA中第一列和第二列提取，lat和lng 分别赋值到第三列和第四列。有很多行，请问怎么写语句啊。

 For Each dr As DataRow In DataTables("表A").DataRows
   
    Dim v As Double = Math.PI * 3000.0 / 180.0
    Dim x As Double = dr("第一列")
    Dim y As Double = dr("第二列")
    Dim z As Double = math.Sqrt(x * x + y * y) + 0.00002 * Math.Sin(y * v)
    Dim t As Double = Math.Atan2(y, x) + 0.000003 * math.Cos(x * v)
    Dim lat As Double = z * math.sin(t) + 0.006
    Dim lng As Double = z * math.cos(t) + 0.0065
   
    dr("第三列") = x
    dr("第四列") = y
   
Next