Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Cómo convertir ángulos de grados/minutos/segundos a o desde ángulos decimales en Excel

Ha finalizado el soporte técnico para Office 2003

Microsoft puso fin al soporte técnico para Office 2003 el 8 de abril de 2014. Este cambio ha afectado a las actualizaciones de software y las opciones de seguridad. Sepa qué significa esto en su caso y cómo puede mantenerse protegido.

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 213449

Resumen
Las mediciones angulares se suelen expresar en unidades de grados, minutos y segundos (DMS). Un grado es igual a 60 minutos y un minuto es igual a 60 segundos. Para simplificar algunos cálculos matemáticos que puede ser conveniente expresar las mediciones angulares en grados y fracciones decimales de grados.

Este artículo contiene un ejemplo de función personalizada que se puede utilizar para convertir un valor de grado almacenado en formato decimal, a DMS almacenado en formato de texto, y un ejemplo defunción que convierte DMS a un valor de grado almacenado en formato decimal.
Más información
Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin garantía expresa o implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se demuestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus necesidades específicas.
Si tiene poca experiencia en programación, desea ponerse en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificada Partners: https://Partner.Microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft- http://support.Microsoft.com/GP/advisoryservice

Para obtener más información acerca de las opciones de soporte que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft:http://support.Microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMS

Convertir los grados decimales a grados, minutos y segundos

El siguiente de Visual Basic para Aplicaciones de Microsoft la función personalizada acepta un ángulo con formato como un valor decimal y lo 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 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 WithEnd Function				
Para 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 Basiceditor Visual.
  2. En el menú Insertar , haga clic en módulo.
  3. Escriba el código de ejemplo para el customfunction 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

El siguiente de Visual Basic para Aplicaciones de Microsoft la función personalizada acepta una cadena de texto de grados, minutos y segundos con el mismo formato exacto que devuelve la función Convert_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: se produce un error en esta función personalizada si el argumento Degree_Deg no está en el formato siguiente
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
incluso si el valor de segundos es 0.
Function Convert_Decimal(Degree_Deg As String) As Double   ' Declare the variables to be double precision floating-point.   Dim degrees As Double   Dim minutes As Double   Dim seconds As Double   ' Set degree to value before "°" of Argument Passed.   degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))   ' Set minutes to the value between the "°" and the "'"   ' of the text string for the variable Degree_Deg divided by   ' 60. The Val function converts the text string to a number.   minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _             "°") - 2)) / 60    ' Set seconds to the number to the right of "'" that is    ' converted to a value and then divided by 3600.    seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _            2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _            / 3600   Convert_Decimal = degrees + minutes + secondsEnd Function				
Para 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 BasicEditor Visual.
  2. En el menú Insertar , haga clic en módulo.
  3. Escriba el código de ejemplo para la customfunction de Convert_Decimal que se describe anteriormente en la hoja de módulo.
  4. Presione ALT+F11 para volver a excel.
  5. En la celda A1, escriba la fórmula siguiente:
    = Convert_Decimal("10° 27' 36""")
    Nota: debe escribir tres comillas ("" ") en la endof el argumento de esta fórmula para equilibrar el presupuesto de marca para el secondsand las comillas de la cadena de texto. Una referencia de celda no requerirá la marca aquotation.
  6. La fórmula devuelve 10.46

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 213449 - Última revisión: 11/22/2015 06:58:00 - Revisión: 21.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtes
Comentarios