End Function

Date: 2015-10-07; view: 473.

Пользовательские функции

Пользовательская функция – это подпрограмма. Она начинается с оператора Function и заканчивается оператором End Function, между которыми помещается программный код.

Синтаксис объявления функции:

[Public | Private] Functionимя_функции (список_параметров) As тип

блок_операторов_1

[Exit Function]

[блок_операторов_2]

Здесь:

тип - тип объявляемой функции.

Exit Functionиспользуется для досрочного прекращения выполнения функции (см. Exit For в разделе 2.7.2.4).

Заметим, что остальные элементы в объявлении функции имеют то же назначение, что и в объявлении процедуры (см. раздел 2.8.1.). Кроме того, способы передачи и правила согласования параметров одинаковы как при вызове функции, так при вызове процедуры.

Основные отличия функции от процедуры следующие:

1. У функции нет выходных параметров, а все ее входные параметры называются аргументами.

2. Функция имеет тип (аналогично переменной) и может возвращать в программу значение, которое присваивается функции в ее программном коде при помощи следующего оператора:

имя функции = значение

3. Функция не вызывается, подобно процедуре, а включается в состав выражения посредством указания ее имени и аргументов.

Это справедливо как для пользовательских, так и для встроенных функций.

Пример.

'Процерура расчета зарплаты

Private Sub Zarplata()

Dim zarpl, dohod As Single

dohod =2000

zarpl= dohod- ndfl(dohod) 'результат выполнения: zarpl =1760

dohod =60000

zarpl= dohod- ndfl(dohod) 'результат выполнения: zarpl =48000

End Sub

'Функция вычисления подоходного налога

Public Function ndfl(a As Single) As Single

If a > 50000 Then

ndfl = a * 0.2

Else

ndfl = a * 0.12

End If

End Function