Kuidas muuta määral/minutit/sekundit nurk või sealt decimal mis Exceli

Office 2003 tugi on lõppenud

Microsoft lõpetas Office 2003 tugiteenuse pakkumise 8. aprillil 2014. Muudatus mõjutas teie tarkvaravärskendusi ja turbesuvandeid. Lugege, mida see teie jaoks tähendab ja kuidas saate kaitset säilitada.

NB! Artikkel on tõlgitud Microsofti masintõlketarkvaraga ja seda saab parandada Kogukonnapõhise tõlkeraamistiku (CTF) tehnoloogiaga. Microsoft pakub masintõlgitud, kogukonna järeltöödeldud ja inimtõlgitud artikleid, et anda mitmekeelne juurdepääs kõigile meie teabebaasi artiklitele. Masintõlgitud ja järeltöödeldud artiklites võib olla sõnavara-, süntaksi- ja/või grammatikavigu. Microsoft ei vastuta mingite ebatäpsuste, tõrgete ega kahjude eest, mis on tulenenud sisu valest tõlkest või selle kasutamisest meie klientide poolt. Lisateavet CTF-i kohta leiate aadressilt http://support.microsoft.com/gp/machine-translation-corrections/et.

Artikli ingliskeelse versiooni kuvamiseks klõpsake siin: 213449

Kokkuvõte
Nurga mõõtmise esitatakse tavaliselt üksustes määral, minutid ja sekundid (DMS). Üks aste tähistab 60 minutit ja üks minut võrdne 60 sekundit. Mõned matemaatiline arvutused lihtsustamiseks võite kiire nurga mõõtmiseks määral ja kümnendmurdudeks suhtes.

See artikkel sisaldab proovi kohandatud funktsiooni abil saate teisendada salvestatud decimal vormingust salvestatakse vormingus ja proovi funktsioon, mis muudab DMS taseme väärtuseks kümnendarv vormingus salvestatud DMS määral väärtus.
Lisateave
Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse GARANTIITA, sealhulgas, kuid mitte ainult, kaudseid garantiisid kaubandusliku ja/või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete tuttav programmeerimiskeelega programmeerimise keel ja tööriistu kasutada loomiseks ja silumiseks protseduure. Microsofti ametlikud tugiteenusepakkujad võib aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure vastavalt oma vajadustele.
Kui teil on piiratud programmeerimise kogemus, võite võtta ühendust Microsofti sertifitseeritud partnerite või Microsofti nõustamisteenused. Lisateabe saamiseks külastage järgmisi Microsofti veebisaite:

Microsofti sertifitseeritud partnerite- https://partner.microsoft.com/Global/30000104

Microsofti nõustamisteenused- http://support.microsoft.com/GP/advisoryservice

Tugiteenuse võimalused, mis on saadaval ja kuidas pöörduda Microsofti kohta lisateabe saamiseks külastage järgmist Microsofti veebisaiti:http://support.microsoft.com/default.aspx?scid=FH; EN-US. CNTACTMS

Määral/minutit/sekundit Decimal määral teisendamine

Järgmine Microsoft Visual Basic for Applications kohandatud funktsiooni aktsepteerib kümnendsüsteemi vormindatud ja teisendab teksti väärtus kuvatakse määral, minutid ja sekundid.

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				
Selle funktsiooni kasutamiseks looge muutmise valem, nagu järgmises näites:
  1. Käivitage Excel ja vajutage klahvikombinatsiooni ALT + F11 Visual Basiceditor.
  2. Klõpsake menüü Lisamoodul.
  3. Sisestage näidiskoodi moodul lehe eespool kirjeldatud Convert_Degree customfunction.
  4. Vajutage klahvikombinatsiooni ALT + F11 Excelisse naasmiseks.
  5. Tippige lahtrisse A1 väärtus 10.46.
  6. Tippige lahtrisse A2 järgmine valem:
    =Convert_Degree(a1)


    Valem tagastab väärtuse 10 ° 27'36 "

Määral/minutit/sekundit teisendamine kümnendsüsteemi määral

Järgmine Microsoft Visual Basic for Applications kohandatud funktsiooni aktsepteerib tekstistring, minutit ja sekundit vormindatud funktsioon Convert_Degree tagastab sama vormingu (nt 10° 27' 36") ja teisendab nurga vormindatud kümnendsüsteemi. See on täpselt vastupidi Convert_Degree kohandatud funktsiooni.

Hoiatus: selle kohandatud funktsiooni nurjub, kui Degree_Deg argument ei ole järgmises vormingus
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
isegi kui sekundi väärtus on 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				
Selle funktsiooni kasutamiseks looge muutmise valem, nagu järgmises näites:
  1. Käivitage Excel ja vajutage klahvikombinatsiooni ALT + F11 Visual BasicEditor.
  2. Klõpsake menüü Lisamoodul.
  3. Sisestage näidiskoodi moodul lehe eespool kirjeldatud Convert_Decimal customfunction.
  4. Vajutage klahvikombinatsiooni ALT + F11 Excelisse naasmiseks.
  5. Tippige lahtrisse A1 järgmine valem:
    = Convert_Decimal("10° 27' 36""")
    Märkus: teil palutakse tippida kolmest jutumärke ("" ") on endof kell argument see valem pakkumise tasakaalustamiseks märkida on secondsand tekstistringi jutumärgid. Lahtriviide ei nõua aquotation märgi.
  6. Valem väärtuse 10.46

Hoiatus. See artikkel on masintõlgitud.

Atribuudid

Artikli ID: 213449 – viimati läbi vaadatud: 05/07/2016 08:00:00 – redaktsioon: 4.0

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

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtet
Tagasiside