Convertir grados decimales a grados/minutos/segundos

Convertir los grados decimales a grados/minutos/segundos
El siguiente ejemplo de Microsoft Visual Basic para Aplicaciones función personalizada de acepta un ángulo con formato de un valor decimal ylo convierte en un valor de texto que se muestra en grados, minutos y segundos. 

Function Convert_Degree(Decimal_Deg) As Variant
With Application
'Set degree to Integer of ArgumentPassed
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 theResult of degree conversion
'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
& Seconds + Chr(34)
End With
End FunctionPara utilizar esta función, cree una fórmula de conversión, como en el ejemplo siguiente:
1. Inicie Excel y presione ALT+F11 para iniciar el editor de Visual Basic.
2. En el menú Insertar,haga clic en Módulo.
3. Introduzca el código de ejemplo para la función personalizada Convert_Degree que se describe anteriormente en la hoja de módulo.
4. Presione ALT+F11 para volver a excel.
5.En la celda A1 escriba 10.46.
6. En la celda A2, escriba la fórmula siguiente:
=Convert_Degree(a1)

La fórmula devuelve 10 ° 27'36 "
Conversión de grados, minutos y segundos a grados decimales
Elsiguiente ejemplo de Microsoft Visual Basic para Aplicaciones función personalizada de acepta una cadena de texto de grados, minutos y segundos con el mismo formato exacto que devuelve la funciónConvert_Degree (por ejemplo, 10 ° 27' 36 ") y lo convierte en un ángulo como un valor decimal. Esto es exactamente el inverso de la función personalizada Convert_Degree.

Advertencia: esta función...