软件技巧|十进制经纬度转度分秒

Function DecimalToDMS(DecimalDeg As Double) As String    Dim deg As Integer, min As Integer, sec As Double    Dim sign As String    ' 处理方向（北纬/东经为正，南纬/西经为负）    If DecimalDeg < 0 Then        sign = "-"        DecimalDeg = -DecimalDeg    Else        sign = ""    End If    deg = Int(DecimalDeg)    min = Int((DecimalDeg - deg) * 60)    sec = (DecimalDeg - deg - min / 60) * 3600' 格式化为 度°分'秒" （秒保留两位小数）    DecimalToDMS = sign & deg & "°" & Format(min, "00") & "'" & Format(sec, "00.00") & """"End Function

联系小编