Du arbetar offline, väntar på att återansluta till Internet

Prevod stupňov/minút uhol alebo z desiatková uhol v programe Excel

Poskytovanie technickej podpory pre balík Office 2003 sa skončilo

8. apríla 2014 ukončila spoločnosť Microsoft poskytovanie technickej podpory pre balík Office 2003. Táto zmena ovplyvnila aktualizácie softvéru a možnosti zabezpečenia. Zistite, čo to pre vás znamená a ako ponechať počítač zabezpečený.

DÔLEŽITÉ: Tento článok je preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft a možno ho opraviť prostredníctvom technológie Community Translation Framework (CTF). Microsoft ponúka strojovo preložené články, články upravené komunitou aj články preložené prekladateľmi, aby zabezpečil prístup ku všetkým článkom databázy Knowledge Base vo viacerých jazykoch. Strojovo preložené články aj upravené články môžu obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky. Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené neprávnym prekladom obsahu alebo jeho použitím zo strany našich zákazníkov. Ďalšie informácie o technológii CTF nájdete na lokalite http://support.microsoft.com/gp/machine-translation-corrections/sk.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem: 213449

Súhrn
Uhlová merania sú zvyčajne vyjadrené v jednotkách stupne, minúty a sekundy (DMS). Jeden stupeň rovná 60 minút a jednu minútu sa rovná 60 sekúnd. Zjednodušiť niektoré matematické výpočty môžete vyjadriť Uhlová merania stupňov a desatinné častí stupňov.

Tento článok obsahuje vzorka vlastnú funkciu môžete použiť na konverziu miery hodnoty uložené v desiatkovom formáte, DMS uložený vo formáte textu a vzorky funkciu, ktorá prevedie DMS stupeň hodnoty uložené v desiatkovom formáte.
Ďalšie informácie
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez záruky vyjadrené alebo implicitné, vrátane, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti na konkrétny účel. Tento článok predpokladá, že ste sa oboznámili s predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu, ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.
Ak máte obmedzené skúsenosti s programovaním, môžete kontaktovať Microsoft Certified Partner alebo poradenské služby spoločnosti Microsoft. Ďalšie informácie nájdete na nasledujúcich webových lokalitách spoločnosti Microsoft:

Microsoft Certified partnerov- https://partner.Microsoft.com/Global/30000104

Poradenské služby- http://support.Microsoft.com/GP/advisoryservice

Ďalšie informácie o dostupných možnostiach technickej podpory a informácie o možnostiach kontaktovania spoločnosti Microsoft nájdete na nasledujúcej webovej lokalite spoločnosti Microsoft:http://support.Microsoft.com/default.aspx?SCID=FH; EN-US; CNTACTMS

Konverzia desiatková stupňov stupňov/minút

Nasledujúce Microsoft Visual Basic for Applications vlastnú funkciu prijíma uhol vo formáte desatinného a konverzia hodnota stupňov, minút a sekúnd.

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				
Chcete použiť túto funkciu, vytvoriť vzorec konverzie v nasledujúcom príklade:
  1. Spustite program Excel a stlačte kombináciu klávesov ALT + F11 Spustite Visual Basiceditor.
  2. V ponuke Vložiť kliknite na položku modul.
  3. Convert_Degree customfunction uvedené do hárku modulu zadajte ukážkový kód.
  4. Kláves ALT + F11 sa vráťte do programu excel.
  5. Do bunky A1 zadajte 10.46.
  6. V bunke A2 zadajte nasledujúci vzorec:
    =Convert_Degree(a1)


    Vzorec vráti 10 ° 27 "36"

Prevod stupňov/minút desiatková stupňov

Nasledujúce Microsoft Visual Basic for Applications vlastnú funkciu prijíma textový reťazec stupňov, minút a sekúnd vo formáte presne rovnaký formát, že funkcia Convert_Degree vráti (napríklad 10° 27 "36") a konverzia uhol naformátovaná na desiatkovú hodnotu. Je to presne naopak Convert_Degree vlastné funkcie.

Upozornenie: túto vlastnú funkciu zlyhá, ak Degree_Deg argument nie je v nasledujúcom formáte
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
aj v prípade, že sekúnd hodnotu 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				
Chcete použiť túto funkciu, vytvoriť vzorec konverzie v nasledujúcom príklade:
  1. Spustite program Excel a stlačte kombináciu klávesov ALT + F11 Spustite Visual BasicEditor.
  2. V ponuke Vložiť kliknite na položku modul.
  3. Convert_Decimal customfunction uvedené do hárku modulu zadajte ukážkový kód.
  4. Kláves ALT + F11 sa vráťte do programu excel.
  5. Do bunky A1 zadajte nasledujúci vzorec:
    = Convert_Decimal("10° 27' 36""")
    Poznámka: musíte zadať tri úvodzovky ("" ") v endof argument tento vzorec na vyváženie úvodzovky označiť pre secondsand úvodzovky pre textový reťazec. Odkaz na bunku nevyžaduje aquotation značku.
  6. Vzorec vráti 10.46

Upozornenie: Tento článok bol preložený automaticky.

Egenskaper

Artikel-id: 213449 – senaste granskning 09/23/2015 17:11:00 – revision: 7.0

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

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtsk
Feedback