End Function

Здесь:

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

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