Al momento sei offline in attesa che la connessione Internet venga ristabilita

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

Il supporto per Office 2003 è terminato

Il supporto Microsoft per Office 2003 è terminato l'8 aprile 2014. Questa modifica ha interessato gli aggiornamenti software e le opzioni di sicurezza. Ulteriori informazioni su come continuare a essere protetti.

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.

213449

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

In questo articolo contiene un esempio di funzione personalizzata che è possibile utilizzare per convertire un valore in gradi memorizzato in formato decimale, a memorizzato in formato testo e un esempio di funzione che converte DMS in gradi memorizzato in formato decimale.
Informazioni
Microsoft fornisce esempi di programmazione illustrativo, senza alcuna garanzia espressa o implicita, comprese, ma non limitatamente a, 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. Gli esperti Microsoft possono spiegare la funzionalità di una particolare procedura, ma non possono modificare questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.
Se si dispone di esperienza di programmazione limitata, si consiglia di 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

La conversione di gradi decimali in gradi/minuti/secondi

Il seguente di Visual Basic, Applications Edition Microsoft funzione personalizzata 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 WithEnd Function				
Per utilizzare questa funzione, è possibile creare una formula di conversione, come nell'esempio seguente:
  1. Avviare Excel e premere ALT + F11 per avviare il Visual Basiceditor.
  2. Scegliere modulodal menu Inserisci .
  3. Immettere il codice di esempio per la customfunction Convert_Degree 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 "

La conversione di gradi/minuti/secondi in gradi decimali

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

Avviso: questa funzione personalizzata ha esito negativo se l'argomento Degree_Deg non è nel formato seguente
<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 + secondsEnd Function				
Per utilizzare questa funzione, è possibile creare una formula di conversione, come nell'esempio seguente:
  1. Avviare Excel e premere ALT + F11 per avviare il Visual BasicEditor.
  2. Scegliere modulodal menu Inserisci .
  3. Immettere il codice di esempio per la customfunction Convert_Decimal 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 doppie ("" ") in corrispondenza di endof l'argomento di questa formula per bilanciare l'offerta di contrassegnare per il secondsand le virgolette per la stringa di testo. Un riferimento di cella non richiede il segno di aquotation.
  6. La formula restituisce 10.46.

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 213449 - Ultima revisione: 01/02/2016 08:04:00 - Revisione: 10.0

  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtit
Feedback