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

'将以度分秒表示的经纬度转换为以度表示的经纬度
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