Jesteś obecnie w trybie offline. Czekamy na ponowne połączenie z Internetem.

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

Zakończono świadczenie pomocy technicznej dla pakietu Office 2003

Firma Microsoft zakończyła świadczenie pomocy technicznej dla pakietu Office 2003 8 kwietnia 2014. Ta zmiana wpłynęła na Twoje aktualizacje oprogramowania i opcje zabezpieczeń. Dowiedz się, co to oznacza dla Ciebie i jak zapewnić sobie kontynuację ochrony.

WAŻNE: Ten artykuł został przetłumaczony przy użyciu oprogramowania firmy Microsoft do tłumaczenia maszynowego i może być poprawiony przy użyciu technologii Community Translation Framework (CTF). Firma Microsoft udostępnia artykuły tłumaczone maszynowo, poprawione przez społeczność, a także tłumaczone przez tłumaczy profesjonalnych, aby zapewnić dostęp do wszystkich artykułów w bazie wiedzy w wielu językach. Artykuły tłumaczone maszynowo i poprawione mogą zawierać błędy pisowni, składniowe i gramatyczne. Firma Microsoft nie ponosi odpowiedzialności za żadne nieścisłości, błędy ani szkody spowodowane przez niepoprawne tłumaczenia zawartości ani przez korzystanie z niej przez klientów. Więcej o strukturze CTF: http://support.microsoft.com/gp/machine-translation-corrections/pl.

Anglojęzyczna wersja tego artykułu to: 213449

Streszczenie
Kątowe pomiary powszechnie są wyrażane w jednostkach stopni, minut i sekund (DMS). Jeden stopień jest równy 60 minutom, a jedna minuta jest równa 60 sekundom. Aby uprościć niektóre obliczenia matematyczne, możesz wyrazić kątowe pomiary w stopniach i ułamkach dziesiętnych stopni.

Ten artykuł zawiera próbkę funkcji niestandardowej, której można użyć do konwersji wartości stopnia przechowywanej w formacie dziesiętnym do DMS przechowanego w formacie tekstowym, oraz funkcję próbki, która konwertuje DMS do wartości stopnia przechowywanej w formacie dziesiętnym.
Więcej informacji
Firma Microsoft podaje przykłady programowania wyłącznie dla zilustrowania sytuacji, 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 użytkownik 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ć funkcjonalności i konstruować procedur w celu spełnienia określonych potrzeb.
Jeśli czytelnik ma niewielkie doświadczenie w programowaniu, może skontaktować się z autoryzowanym partnerem firmy Microsoft lub usługami doradczymi 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 sposobów 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 dziesiętnych stopni do stopni/minut/sekund

Następująca niestandardowa funkcja dla aplikacji Microsoft Visual Basic przyjmuje kąt sformatowany jako wartość dziesiętną i konwertuje je na wartość tekstową wyświetlaną 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 WithEnd Function				
Aby użyć tej funkcji, należy utworzyć formułę konwersji, jak w poniższym przykładzie:
  1. Uruchom program Excel, a następnie naciśnij klawisze ALT + F11, aby uruchomić program Visual Basiceditor.
  2. W menu Wstaw kliknij polecenie Moduł.
  3. Wprowadź kod przykładowy customfunction Convert_Degree opisane powyżej do arkusza modułu.
  4. Naciśnij klawisze ALT + F11, aby wró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/minut/sekund na stopnie dziesiętne

Następująca niestandardowa funkcja dla aplikacji Microsoft Visual Basic akceptuje ciąg tekstowy stopni, minut i sekund sformatowanych w dokładnie ten sam format, zwracany przez funkcję Convert_Degree (na przykład 10° 27' 36 ") i konwertuje ją na kąt sformatowany jako wartości dziesiętne. Jest to dokładnie odwrotność funkcji niestandardowej Convert_Degree.

Ostrzeżenie: Ta funkcja niestandardowa nie powiedzie się, jeśli Degree_Deg argument nie jest w następującym formacie
<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 + secondsEnd Function				
Aby użyć tej funkcji, należy utworzyć formułę konwersji, jak w poniższym przykładzie:
  1. Uruchom program Excel, a następnie naciśnij klawisze ALT + F11, aby uruchomić program Visual BasicEditor.
  2. W menu Wstaw kliknij polecenie Moduł.
  3. Wprowadź kod przykładowy customfunction Convert_Decimal opisane powyżej do arkusza modułu.
  4. Naciśnij klawisze ALT + F11, aby wró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 ("" ") w endof argumencie tej formuły do zrównoważenia oferty znak dla secondsand znak cudzysłowu dla ciągu tekstowego. Odwołanie do komórki nie będzie wymagał znaku aquotation.
  6. Ta formuła zwraca wartość 10.46

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

Właściwości

Identyfikator artykułu: 213449 — ostatni przegląd: 09/23/2015 06:27:00 — zmiana: 7.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtpl
Opinia