经纬度坐标转换函数：度分秒转换成十进制的度（VB）

发布时间：2020-12-16 23:08:38 所属栏目：大数据来源：网络整理

导读：'将以度分秒表示的经纬度转换为以度表示的经纬度Function CoordinateTrans(ByVal Coordinate As String) As Double Dim sTemp() As String '判断引用值是否为数值，若不是则直接输出0 If IsNumeric(Coordinate) Then '格式化经纬度的表示方法（度.分.秒） Co

'将以度分秒表示的经纬度转换为以度表示的经纬度 Function CoordinateTrans(ByVal Coordinate As String) As Double Dim sTemp() As String '判断引用值是否为数值，若不是则直接输出0 If IsNumeric(Coordinate) Then '格式化经纬度的表示方法（度.分.秒） Coordinate = Format(Coordinate,"0.00.0000") '分解出“度”、“分”、“秒” sTemp = Split(Coordinate,".") '计算出以度表示的经纬度 CoordinateTrans = CDbl(Format(sTemp(0) + sTemp(1)/60 + sTemp(2)/600000,"0.000000000000") Else CoordinateTrans = 0 End If End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!