exel

Convertir los decimales a grados, minutos, segundos
El siguiente ejemplo de Microsoft Visual Basic para Aplicaciones función personalizada de acepta un ángulo con formato como un valor decimal y loconvierte 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 the Resultof 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. Escriba 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 lacelda A1 escriba 10.46.
6. En la celda A2, escriba la fórmula siguiente:
=Convert_Degree(a1)


La fórmula devuelve 10 ° 27'36 "






Convertir los grados, minutos y segundos a decimalesEl siguiente 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 con formato de valor decimal. Esto es exactamente el inverso de la función personalizada Convert_Degree.

Advertencia: esta...