以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  谷歌经纬度转百度经纬度  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64138)
--  作者：狐座非为
--  发布时间：2015/2/5 18:30:00
--  谷歌经纬度转百度经纬度
谷歌地图经纬度 想要转换为百度地图经纬度，无解了。有明白的大神吗？
--  作者：有点甜
--  发布时间：2015/2/5 19:38:00
--  

 

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

 

 
--  作者：狐座非为
--  发布时间：2015/2/5 20:01:00
--  
谢谢甜老师，这个想批量操作，能解决吗，我看很多接口都不给用了。
--  作者：有点甜
--  发布时间：2015/2/5 20:06:00
--  
 注册成为开发者才能调用
--  作者：有点甜
--  发布时间：2015/2/5 20:09:00
--  

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

 

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

 
--  作者：狐座非为
--  发布时间：2015/2/5 20:23:00
--  
甜老师，这个JAVA代码 是真心看不懂  能帮我改成咱们foxtable的代码吗？我就可以批量操作了！！也不知道方便不方便。。谢谢甜老师。
--  作者：有点甜
--  发布时间：2015/2/5 20:30:00
--  

 一样的意思

 

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)
--  作者：狐座非为
--  发布时间：2015/2/5 21:07:00
--  
谢谢甜老师，明天试验一下，太厉害了 哈哈。
--  作者：狐座非为
--  发布时间：2015/2/6 9:51:00
--  

甜老师，我想把 X和Y分别从表AA中第一列和第二列提取，lat和lng 分别赋值到第三列和第四列。有很多行，请问怎么写语句啊。
--  作者：有点甜
--  发布时间：2015/2/6 9:53:00
--  
 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