A short function to format decimal degrees as D°MM'SS"
eg.: 123.5436 = 123°32'37"
see http://www.vbforums.com/showthread.p...06#post3970406Code: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