
CONVERTING DECIMAL DEGREES TO DMS IN EXCEL TO TWO PLACES (EXAMPLE 10?ø47’25.32″)
I need a little help with this. What do I need to change to get two places on the seconds?
Function Convert_Degree(Decimal_Deg) As Variant
With Application
‘Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
‘Set minutes to 60 times the number to the right
‘of the decimal for the variable Decimal_Deg
Minutes = (Decimal_Deg – Degrees) * 60
‘Set seconds to 60 times the number to the right of the
‘decimal for the variable Minute
Seconds = Format(((Minutes – Int(Minutes)) * 60), “0”)
‘Returns the Result of degree conversion
‘(for example, 10.46 = 10~ 27 ‘ 36″)
Convert_Degree = ” ” & Degrees & “?ø ” & Int(Minutes) & “‘ ” _
& Seconds + Chr(34)
End With
End FunctionThanks,
Ed
Log in to reply.