7.5    Встроенные функции

Visual Basic имеет набор встроенных функций. Перечень наиболее часто используемых функций приведен в Приложении 2. По назначению встроенные функции объединяются в следующие группы:

·      финансово-математические функции;

·      функции преобразования типа;

·      математические функции;

·      функции статуса;

·      функции обработки строк;

·      прочие функции;

·      функции даты и времени;

·      функции для работы с массивами;

·      функции для работы с файлами;

·      прочие функции.

7.5.1        Финансово-математические функции

Эта группа функций предназначена для выполнения некоторых наиболее распространенных типовых финансовых расчетов. Перечень и назначение финансово-математических функций приведен в таблице П.1.

Рассмотрим  примеры использования некоторых из них.

Упражнение 8.         

Использование встроенных финансово – математических функций

Пусть необходимо вычислять величину амортизации основных фондов в указанный период эксплуатации. Стоимость автомобиля в начале эксплуатации 150 тыс.,  а его стоимость в конце эксплуатации через 6 лет составляет 20 тыс. Требуется определить величину амортизации для третьего года эксплуатации. Расчеты сделать для  случая равномерной амортизации и для случая двукратной амортизации. Для решения задачи можно воспользоваться финансово-математическими функциями SYD и DDB (табл. П.1).

Функции имеют следующий синтаксис:

SYD(Стоимость, Ликвидная_стоимость,  Жизнь, Период)

DDB(Стоимость, Остаточная_стоимость, Время_эксплуатации, Период, Кратность)

Параметрами этих функций, посредством которых задаются исходные данные для расчетов являются:

Стоимость –стоимость единицы основного фонда в начале эксплуатации;

Остаточная стоимость – стоимость в конце эксплуатации;

Время эксплуатации – продолжительность эксплуатации в периодах (месяц, год);

Период – номер периода, для которого производится расчет;

Кратность – целое число, определяющее кратность амортизации (метод расчета).

Для создания функции определим ее параметры, оформив их в виде следующей таблицы:

Задание:

1.       Создайте в одном из модулей проекта функцию для расчета амортизации с именем АМОРТИЗАЦИЯ.

2.       Поместите в нее следующий код:

Public Function АМОРТИЗАЦИЯ(Стоимость As Double, _

Остаточная_стоимость As Double, Время_эксплуатации As _

Integer,  Период As Integer, Тип As Byte, _

Кратность As Byte) As Double

'Проверка вида расчета. Если Тип <> 0, то кратный метод

' иначе равномерная амортизация

 If Тип <> 0 Then

 АМОРТИЗАЦИЯ = DDB(Стоимость, Остаточная_стоимость, _

                Время_эксплуатации, Период, Кратность)

Else

  АМОРТИЗАЦИЯ = SYD(Стоимость, Остаточная_стоимость, _

                Время_эксплуатации, Период)

End If

End Function

 3.       На рабочем листе поместите исходные данные для проверки функции (рис. 7.3).

4.       Примените созданную функцию для расчета амортизации по данным таблицы.

5.       Отладьте код программы, если необходимо.

6.       Поместите в свойство функции ее краткое описание.

 
Рис. 7.3. Результаты расчета амортизации