以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求“经纬度度分秒如何转化为小数点格式”的表达式？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154181)

--  作者：xnsiwei --  发布时间：2020/9/7 12:01:00 --  求“经纬度度分秒如何转化为小数点格式”的表达式？ 经纬度度分秒如何转化为小数点： 北纬N39°34′14.95″ ：度+分÷60+秒÷3600= 东经E116°34′52.18″：度+分÷60+秒÷3600=

--  作者：有点蓝 --  发布时间：2020/9/7 14:19:00 --   只能使用代码处理 Dim s As String = "北纬N39°34′14.95″" Dim arr() As String = s.split(new Char(){"N","°","′","″"}) Dim d As Double = val(arr(1)) + val(arr(2)) / 60 + val(arr(3)) / 3600 msgbox(d)

--  作者：xnsiwei --  发布时间：2020/9/7 23:16:00 --   谢谢