Convert Decimal Degrees to D°MM'SS"

A short function to format decimal degrees as D°MM'SS"
eg.: 123.5436 = 123°32'37"

Code:

---

Function FormatDMS(ByVal Degs As Double) As String
    Degs = Int(Degs * 3600 + 0.5) / 3600 '-- rounding to second
    FormatDMS = Int(Degs) & Format(Degs / 24, "°nn'ss\""")
End Function

---

see http://www.vbforums.com/showthread.p...06#post3970406