Accedi

Select the product you need help with

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

Identificativo articolo: 213449 - Visualizza i prodotti a cui si riferisce l?articolo.

Attenzione: Questo � un articolo tradotto in automatico.

Per visualizzare l'articolo tradotto automaticamente accanto all'originale in inglese, fare clic qui.

Espandi tutto | Chiudi tutto

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.

Torna all'inizio | Invia suggerimenti

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

(https://partner.microsoft.com/global/30000104)

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

(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

(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:

Avviare Excel e premere ALT + F11 per avviare il Visual Basic Editor.
Scegliere modulodal menu Inserisci .
Immettere il codice di esempio per il Convert_Degree personalizzato funzione descritta in precedenza nel foglio del modulo.
Premere ALT + F11 per tornare a excel.
Nella cella A1 digitare 10.46.
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

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:

Avviare Excel e premere ALT + F11 per avviare il Visual Basic Editor.
Scegliere modulodal menu Inserisci .
Immettere il codice di esempio per il Convert_Decimal personalizzato funzione descritta in precedenza nel foglio del modulo.
Premere ALT + F11 per tornare a excel.
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.
La formula restituisce 10.46.

Torna all'inizio | Invia suggerimenti

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

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

(http://support.microsoft.com/kb/213449/en-us/ )

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.

Torna all'inizio | Invia suggerimenti