Page 162 - 4671
P. 162

LOG10(число)                     Функція для обчислення десяткового логарифму з основою 10

            LОG(число,основа)                Функція обчислення логарифма з довільною основою


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


                  Програма користувача для переводу градусів, мінут, секунд в десяткові градуси.

            Function Convert_Decimal(Degree_Deg As String) As Double
               ' Объявление переменных в формате числа с плавающей запятой двойной точности.
               Dim degrees As Double
               Dim minutes As Double
               Dim seconds As Double
               ' Установить число градусов равным части аргумента функции до символа «°»
               degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
               ' Установить число минут равным части аргумента функции между символами «°» и «'»
               ' текстовой строки Degree_Deg, переведенной в числовой формат
               ' 60. с помощью функции Val и поделенной на 60.
               minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
                         InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
                         "°") - 2)) / 60
                ' Установить число минут равным части аргумента функции справа от символа «'»,
                 ' переведенной в числовой формат и поделенной на 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

            Для використання отриманої функції Convert_Decimal треба створити формулу переводу,
            наприклад таку:
            1.     Натиснути клавіші ALT+F11, щоб запустити редактор Visual Basic.
            2.     В меню Insert вибрати команду Module.
            3.     Введіть в модулі наведений выще код функции Convert_Decimal.
            4.     Натисніть  ALT+F11 для повернення в Excel.
            5.     В клітинці A1 введите таку формулу:
            =Convert_Decimal("10° 27' 36""")
            Примітка. В кінці аргумента цієї формули необхідно ввести три подвійних лапки ("""),
            таким чином беручи в лапки позначення секунд. Посилання на клітинку не вимагає лапок.
            6.     В цьому прикладі формула повертає значення 10.46.

                   Логічні функції
                   Логічні  вирази  використовуються  для  запису  умови,  де  порівнюються  числа,
            функції,  формули,  текстові  або  логічні  значення.  Будь-який  логічний  вираз  повинен
            містити  принаймні  один  оператор  порівняння,  який  визначає  співвідношення  між
            елементами логічного виразу.
                   Результатом  логічного  виразу  є  або  логічне  значення  ИСТИНА  (1),  або  логічне
            значення ЛОЖЬ (0).

                                                              160
   157   158   159   160   161   162   163   164   165   166   167