Artigo: 213449 - Última revisão: quarta-feira, 15 de Fevereiro de 2012 - Revisão: 1.0

Como converter graus/minutos/segundos ângulos de ou para decimais ângulos no Excel 2000

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Para uma versão deste artigo do Microsoft Excel 97, consulte 121944  (http://support.microsoft.com/kb/121944/ ) .

Para uma versão deste artigo do Microsoft Excel 98, consulte 192367  (http://support.microsoft.com/kb/192367/ ) .

Nesta página

Expandir tudo | Reduzir tudo

Sumário

Medidas angulares normalmente são expressas em unidades de graus, minutos e segundos (DMS). Um grau é igual a 60 minutos e um minuto é igual a 60 segundos. Para simplificar alguns cálculos matemáticos que você pode deseja expressar medidas angulares em graus e frações decimais de graus.

Este artigo contém uma função personalizada exemplo que você pode usar Para converter um valor de grau armazenado no formato decimal para DMS armazenados em texto formato e uma função de exemplo que converte um valor de grau armazenado no DMS formato decimal.
Voltar ao topo

Mais Informação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não limitado a, garantias implícitas de comercialização e/ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você tem muita experiência de programação, você poderá entrar em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informações, visite estes Web sites da Microsoft:

Parceiros - certificados da Microsoft https://Partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft Advisory Services- http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contatar a Microsoft, visite o seguinte site da Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
Voltar ao topo

Converter graus decimais graus/minutos/segundos

A seguir de Visual Basic for Applications Microsoft personalizado função aceita um ângulo formatado como um valor decimal e converte-lo para um valor de texto exibido em graus, minutos e 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 With
End Function
Para usar esta função, crie uma fórmula de conversão, como no exemplo:
  1. Inicie o Excel e pressione ALT + F11 para iniciar o Visual Basic Editor.
  2. Sobre o Inserir menu, clique em Módulo.
  3. Digite o código de exemplo para Convert_Degree personalizada função descrita acima na folha de módulo.
  4. Pressione ALT + F11 para retornar ao excel.
  5. Na célula A1, digite 10.46.
  6. Na célula A2, digite a seguinte fórmula:
    =Convert_Degree(a1)


    A fórmula retorna 10 ° 27'36 "
Voltar ao topo

Converter graus/minutos/segundos para graus decimais

A seguir de Visual Basic for Applications Microsoft personalizado função aceita uma seqüência de texto de graus, minutos e segundos formatados na mesmo formato exato que retorna a função Convert_Degree (por exemplo, 10 ° 27' 36 ") e converte para um ângulo formatado como um valor decimal. Isso é exatamente o inverso da função personalizada Convert_Degree.

AVISO: Esta função personalizada falhará se o argumento Degree_Deg não está no o seguinte formato
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
mesmo se o valor de segundos for 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 + seconds
End Function
Para usar esta função, crie uma fórmula de conversão, como no exemplo:
  1. Inicie o Excel e pressione ALT + F11 para iniciar o Visual Basic Editor.
  2. Sobre o Inserir menu, clique em Módulo.
  3. Digite o código de exemplo para Convert_Decimal personalizada função descrita acima na folha de módulo.
  4. Pressione ALT + F11 para retornar ao excel.
  5. Na célula A1, digite a seguinte fórmula:
    = Convert_Decimal("10° 27' 36""")
    OBSERVAÇÃO: É necessário digitar três aspas ("" ") no final o argumento dessa fórmula para equilibrar as aspas para os segundos e as aspas para a seqüência de texto. Uma referência de célula não exigirá uma aspas.
  6. A fórmula retorna 10.46
Voltar ao topo
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Voltar ao topo
Palavras-chave: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtpt
Voltar ao topo
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 213449  (http://support.microsoft.com/kb/213449/en-us/ )
Voltar ao topo