经纬度坐标转换函数:度分秒转换成十进制的度(VB)
Function CoordinateTrans(ByVal Coordinate As String) As Double Dim sTemp() As String If IsNumeric(Coordinate) Then Coordinate = Format(Coordinate, "0.00.0000") sTemp = Split(Coordinate , ".") CoordinateTrans = CDbl(Format(sTe
原创
2010-06-02 14:54:00 ·
7878 阅读 ·
0 评论