Перетворення градусів, хвилини, секунди кутів, або з десятковий кутів у програмі Excel.

Підтримку Office 2003 припинено

8 квітня 2014 р. корпорація Майкрософт припинила підтримку Office 2003. Це позначилося на оновленнях програмного забезпечення та параметрах безпеки. Дізнайтеся, що це означає для вас і яких заходів безпеки необхідно вжити.

ВАЖЛИВО! Ця стаття перекладена засобами машинного перекладу Microsoft. Статтю можна редагувати в середовищі Community Translation Framework (CTF). Щоб якомога швидше перекласти всі статті у своїй базі знань різними мовами, компанія Microsoft не лише звертається до професійних перекладачів, але й вдається до машинного перекладу, який потім редагується спільнотою. Такі статті можуть містити лексичні, синтаксичні та граматичні помилки. Microsoft не несе відповідальності за будь-які неточності, помилки або збитки, до яких може призвести неправильний переклад статей або їх використання. Докладніше про CTF див. на веб-сторінці http://support.microsoft.com/gp/machine-translation-corrections/uk-ua.

Клацніть тут, щоб переглянути цю статтю англійською мовою: 213449

Підсумки
Кутові вимірювання зазвичай – прямих у градусів, хвилини та секунди (DMS). Один рівень, складає 60 хвилин, і одна хвилина, складає 60 секунд. Щоб спростити деякі математичних обчислень, ви можете висловити кутові вимірювання градусів і десяткового дробу градусів.

Ця стаття містить на зразок настроювану функцію, який використовується для перетворення градусів значення, що зберігаються в десятковий формат DMS, які зберігаються в текстовий формат і приклад функції, що перетворює DMS ступінь значення, що зберігаються в десятковий формат.
Додаткові відомості
корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших, включаючи, без обмеження, будь-яких гарантій придатності до продажу та/або придатності для певної мети. У цій статті припускається, що ви знайомі з буде показано мову програмування та засоби, які використовуються для створення та налагодження процедури. Фахівці представник служби підтримки клієнтів Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу власних потреб.
Якщо у вас обмежений досвіду програмування, ви можете звернутися до Microsoft Certified Partner або консультаційної служби. Щоб отримати додаткові відомості відвідайте веб-сайтів корпорації Майкрософт:

корпорація Майкрософт, сертифіковані партнери – HTTPS://Partner.Microsoft.com/Global/30000104

корпорація Майкрософт консультаційні послуги- http://support.Microsoft.com/GP/advisoryservice

Щоб отримати додаткові відомості про доступні варіанти підтримки а також про те, як звернутися до корпорації Майкрософт, відвідайте веб-сайт корпорації Майкрософт:http://support.Microsoft.com/default.aspx?scid=FH EN-US; CNTACTMS

Перетворення градусів, хвилини, секунди десятковий градусів

Таке Microsoft Visual Basic для застосунків, настроювану функцію приймає, що кут у форматі десяткове значення і перетворює його на текстове значення, яке відображається в градусів, хвилини та секунди.

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				
Щоб використовувати цю функцію, створення, перетворення формули, як показано нижче:
  1. Запустіть програму Excel і натисніть сполучення клавіш ALT + F11, щоб запустити Visual Basiceditor.
  2. У меню Вставлення команду " модуль".
  3. Convert_Degree customfunction, описані вище, в у вікні модуля введіть прикладів коду.
  4. Натисніть сполучення клавіш ALT + F11, щоб повернутися в excel.
  5. У клітинці A1 введіть 10.46.
  6. У клітинці A2, введіть таку формулу:
    =Convert_Degree(a1)


    Формула повертає 10-° 27'36 "

Перетворення градусів, хвилини, секунди десятковий градусів

Таке Microsoft Visual Basic для застосунків, настроювану функцію приймає рядку тексту градусів, хвилини та секунди, що в на тому ж форматі, функція Convert_Degree повертає (наприклад, 10° 27' 36") а також перетворює його в форматі десяткове значення кут. Це саме зворотній Convert_Degree настроювану функцію.

Попередження: не вдається виконати настроювану функцію, якщо аргумент Degree_Deg не в такому форматі
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
навіть якщо секунд значення 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				
Щоб використовувати цю функцію, створення, перетворення формули, як показано нижче:
  1. Запустіть програму Excel і натисніть сполучення клавіш ALT + F11, щоб запустити Visual BasicEditor.
  2. У меню Вставлення команду " модуль".
  3. Convert_Decimal customfunction, описані вище, в у вікні модуля введіть прикладів коду.
  4. Натисніть сполучення клавіш ALT + F11, щоб повернутися в excel.
  5. У клітинці A1, введіть таку формулу:
    = Convert_Decimal("10° 27' 36""")
    Зверніть увагу: потрібно ввести три лапки ("" ") у полі околиці с. аргумент формули, баланс в лапки Позначити для на secondsand лапки, щоб текст, який. Посилання не потребує aquotation знак оклику.
  6. Повертатиме 10.46

Попередження. Цю статтю переведено автоматично

Властивості

Ідентифікатор статті: 213449 – останній перегляд: 09/23/2015 17:13:00 – виправлення: 2.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007 - Українська версія

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtuk
Зворотний зв’язок