Come convertire i gradi/minuti/secondi in e da angoli decimali in Excel

Traduzione articoli Traduzione articoli
Identificativo articolo: 213449 - Visualizza i prodotti a cui si riferisce l?articolo.
Espandi tutto | Chiudi tutto

In questa pagina

Sommario

Le misure angolari vengono normalmente espresse in unità di gradi, minuti e secondi (DMS). Un grado equivale a 60 minuti e l'altro minuto a 60 secondi. Per semplificare alcuni calcoli matematici, che è possibile per esprimere le misure angolari in gradi e frazioni decimali di gradi.

In questo articolo contiene una funzione personalizzata di esempio che è possibile utilizzare Per convertire un valore in gradi memorizzato in formato decimale secondi memorizzato in formato testo formato e un esempio di funzione che converte un valore in gradi DMS formato decimale.

Informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita, comprese, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Professionisti del supporto tecnico Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare esigenze specifiche.
Se si dispone di esperienza di programmazione limitata, è possibile contattare un Microsoft Certified Partner o i servizi di consulenza Microsoft. Per ulteriori informazioni, visitare i siti Web Microsoft:

Microsoft certificata partner- https://partner.microsoft.com/Global/30000104

Servizi di consulenza Microsoft- http://support.microsoft.com/gp/advisoryservice

Per ulteriori informazioni sulle opzioni di supporto disponibili e su come contattare Microsoft, visitare il seguente sito Web Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Conversione di gradi decimali in gradi/minuti/secondi

Il seguente di Visual Basic, Applications Edition Microsoft personalizzato la funzione accetta un angolo formattato come valore decimale e lo converte in un valore di testo visualizzato in gradi, minuti e secondi.

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
				
Per utilizzare questa funzione, creare una formula di conversione, come illustrato di seguito esempio:
  1. Avviare Excel e premere ALT + F11 per avviare il Visual Basic Editor.
  2. Scegliere modulodal menu Inserisci .
  3. Immettere il codice di esempio per il Convert_Degree personalizzato funzione descritta in precedenza nel foglio del modulo.
  4. Premere ALT + F11 per tornare a excel.
  5. Nella cella A1 digitare 10.46.
  6. Nella cella A2 digitare la seguente formula:
    =Convert_Degree(a1)


    La formula restituisce 10 ° 27'36 "

Conversione di gradi/minuti/secondi in gradi decimali

Il seguente di Visual Basic, Applications Edition Microsoft personalizzato funzione accetta una stringa di testo di gradi, minuti e secondi formattata nel stesso esatto formato restituito dalla funzione di Convert_Degree (ad esempio, 10° 27' 36 ") e lo converte in un angolo formattato come valore decimale. Si tratta di esattamente il contrario della funzione personalizzata Convert_Degree.

Avviso: questa funzione personalizzata ha esito negativo se l'argomento Degree_Deg non è in il seguente formato
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
anche se il valore dei secondi è 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
				
Per utilizzare questa funzione, creare una formula di conversione, come illustrato di seguito esempio:
  1. Avviare Excel e premere ALT + F11 per avviare il Visual Basic Editor.
  2. Scegliere modulodal menu Inserisci .
  3. Immettere il codice di esempio per il Convert_Decimal personalizzato funzione descritta in precedenza nel foglio del modulo.
  4. Premere ALT + F11 per tornare a excel.
  5. Nella cella A1 digitare la seguente formula:
    = Convert_Decimal("10° 27' 36""")
    Nota: È necessario digitare tre virgolette ("" ") alla fine l'argomento di questa formula per bilanciare le virgolette per i secondi e le virgolette per la stringa di testo. Un riferimento di cella non richiede un segno di virgolette.
  6. La formula restituisce 10.46.

Proprietà

Identificativo articolo: 213449 - Ultima modifica: domenica 28 aprile 2013 - Revisione: 7.0
Le informazioni in questo articolo si applicano a:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Chiavi: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtit
Traduzione automatica articoli
IMPORTANTE: il presente articolo è stato tradotto tramite un software di traduzione automatica di Microsoft ed eventualmente revisionato dalla community Microsoft tramite la tecnologia CTF (Community Translation Framework) o da un traduttore professionista. Microsoft offre articoli tradotti manualmente e altri tradotti automaticamente e rivisti dalla community con l?obiettivo di consentire all'utente di accedere a tutti gli articoli della Knowledge Base nella propria lingua. Tuttavia, un articolo tradotto automaticamente, anche se rivisto dalla community, non sempre è perfetto. Potrebbe contenere errori di vocabolario, di sintassi o di grammatica. Microsoft declina ogni responsabilità per imprecisioni, errori o danni causati da una traduzione sbagliata o dal relativo utilizzo da parte dei clienti. Microsoft aggiorna frequentemente il software e gli strumenti di traduzione automatica per continuare a migliorare la qualità della traduzione.
Clicca qui per visualizzare la versione originale in inglese dell?articolo: 213449
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Invia suggerimenti

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com