Jak przekonwertować stopni w minutach i sekundach kąty do lub z dziesiętny kąty w programie Excel

Tłumaczenia artykułów Tłumaczenia artykułów
Numer ID artykułu: 213449 - Zobacz jakich produktów dotyczą zawarte w tym artykule porady.
Rozwiń wszystko | Zwiń wszystko

Na tej stronie

Streszczenie

Kątowe pomiary są zwykle wyrażona w jednostkach stopnie, minuty i sekundy (DMS). Jeden stopień jest równe 60 minut, a jeden Minuta jest równy 60 sekund. Aby uprościć niektórych obliczeń matematycznych, że może Aby wyrazić kątowe pomiary w stopniach i ułamki dziesiętne stopnie.

W tym artykule zamieszczono przykładowe funkcji niestandardowej, których można używać do konwersji wartości stopnia przechowywane w formacie dziesiętnym, aby DMS przechowywane w postaci tekstu Format i funkcją próbki, która konwertuje DMS stopień wartości przechowywane w format dziesiętny.

Więcej informacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub dorozumianych, w tym między innymi, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnej funkcji i konstruować nowych procedur w celu spełnienia określonych potrzeb.
Jeśli czytelnik ma niewielkie doświadczenie w programowaniu, możesz skontaktować się z certyfikowanym partnerem Microsoft lub usługi doradcze firmy Microsoft. Aby uzyskać więcej informacji odwiedź następujące witryny firmy Microsoft w sieci Web:

Certyfikowani partnerzy - firmy Microsoft https://partner.microsoft.com/Global/30000104

Usługi doradcze firmy Microsoft — http://support.microsoft.com/gp/advisoryservice

Aby uzyskać więcej informacji na temat dostępnych opcji pomocy technicznej oraz sposobu kontaktu z firmą Microsoft odwiedź następującą witrynę firmy Microsoft w sieci Web:http://support.microsoft.com/default.aspx?scid=fh;pl;EN-US;CNTACTMS

Konwertowanie wartości dziesiętnych na wartości w minutach i sekundach

Następujące Microsoft Visual Basic dla aplikacji niestandardowych Funkcja przyjmuje kąt sformatowane jako wartość dziesiętna i konwertuje ją na wartości tekstowe są wyświetlane w stopniach, minutach i sekundach.

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
				
Aby użyć tej funkcji, należy utworzyć formułę konwersji, w następującej przykład:
  1. Uruchom program Excel, a następnie naciśnij klawisze ALT + F11, aby uruchomić Visual Basic Edytor.
  2. W menu Wstaw kliknij polecenie moduł.
  3. Wprowadź kod przykładowy dla niestandardowego Convert_Degree Funkcja opisane powyżej do arkusza modułu.
  4. Naciśnij klawisze ALT + F11, aby powrócić do programu excel.
  5. W komórce A1 wpisz 10.46.
  6. W komórce A2 wpisz następującą formułę:
    =Convert_Degree(a1)


    Formuła zwraca wartość 10 ° 27'36 "

Konwertowanie stopni w minutach i sekundach na stopnie dziesiętne

Następujące Microsoft Visual Basic dla aplikacji niestandardowych Funkcja przyjmuje ciąg tekstowy stopnie, minuty i sekundy sformatowany w dokładnie ten sam format, zwracana przez funkcję Convert_Degree (na przykład 10° 27' 36 ') i konwertuje ją na kąt sformatowane jako wartość dziesiętna. Jest to dokładnie odwrotnej niestandardowych funkcji Convert_Degree.

Ostrzeżenie: Ta funkcja niestandardowa kończy się niepowodzeniem, jeśli Degree_Deg argument nie jest w następujący format
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
nawet jeśli wartości sekund jest 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
				
Aby użyć tej funkcji, należy utworzyć formułę konwersji, w następującej przykład:
  1. Uruchom program Excel, a następnie naciśnij klawisze ALT + F11, aby uruchomić Visual Basic Edytor.
  2. W menu Wstaw kliknij polecenie moduł.
  3. Wprowadź kod przykładowy dla niestandardowego Convert_Decimal Funkcja opisane powyżej do arkusza modułu.
  4. Naciśnij klawisze ALT + F11, aby powrócić do programu excel.
  5. W komórce A1 wpisz następującą formułę:
    = Convert_Decimal("10° 27' 36""")
    Uwaga: należy wpisać trzy cudzysłowy ("" ") na końcu argument tę formułę do zrównoważenia znak cudzysłowu sekund i znak cudzysłowu do ciągu tekstowego. Odwołanie do komórki nie będzie wymagać znak cudzysłowu.
  6. Ta formuła zwraca wartość 10.46

Właściwości

Numer ID artykułu: 213449 - Ostatnia weryfikacja: 8 maja 2013 - Weryfikacja: 3.0
Informacje zawarte w tym artykule dotyczą:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Słowa kluczowe: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtpl
Przetłumaczone maszynowo
WAŻNE: Ten artykuł nie został przetłumaczony przez człowieka, tylko przez oprogramowanie do tłumaczenia maszynowego firmy Microsoft. Firma Microsoft oferuje zarówno artykuły tłumaczone przez ludzi, jak i artykuły tłumaczone maszynowo, dzięki czemu każdy użytkownik może uzyskać dostęp do całej zawartości bazy wiedzy Knowledge Base we własnym języku. Prosimy jednak pamiętać, że artykuły przetłumaczone maszynowo nie zawsze są doskonałe. Mogą zawierać błędy słownictwa, składni i gramatyki, przypominające błędy robione przez osoby, dla których język użytkownika nie jest językiem ojczystym. Firma Microsoft nie odpowiada za wszelkie nieścisłości, błędy lub szkody spowodowane nieprawidłowym tłumaczeniem zawartości oraz za wykorzystanie tej zawartości przez klientów. Oprogramowanie do tłumaczenia maszynowego jest często aktualizowane przez firmę Microsoft.
Anglojęzyczna wersja tego artykułu to: 213449

Przekaż opinię

 

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