Объявление функций. Возврат значения

Для объявления функций в VBA используется следующая конструкция:

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

[As Имя_типа]

[Инструкции]

[Имя_функции = Значение]

[Exit Functon]

[Инструкции]

[Имя_функции = Значение]

End Function

Приведенный формат объявления функции отличается от объявления процедуры использованием ключевого слова Function вместо Sub, возможностью указания типа возвращаемого функцией значения (после списка аргументов) и возможностью в теле функции присвоить значение переменной с идентификатором, соответствующим идентификатору этой функции (Имяфункции = Значение). При объявлении функций можно использовать все возможности, доступные при объявлении процедур.

Если тип возвращаемого функцией значения не указан, то подразумевается возвращение значения типа Variant.

Для возврата значения функцией необходимо в нужном ее месте присвоить соответствующее значение переменной с таким же идентификатором, как и идентификатор функции. Часто в функции может быть несколько точек, в которых возвращается значение. Если после получения результата нужно немедленно выходить из функции, то после присвоения Имяфункции = Значение используется инструкция Exit Function. Если на протяжении выполнения функции не было использовано присвоение Имяфункции = Значение, то возвращается значение по умолчанию для соответствующего типа данных (см. подраздел об инициализации переменных).

Ниже приведен пример функции, которая вычисляет квадратный корень из переданного ей аргумента (если аргумент меньше нуля, то возвращается значение -1, сигнализирующее об ошибке):

Function dhSQR(dblValue As Double) As Double

If dblValue < 0 Then

' Недопустимый аргумент функции

dhSQR = -1

Else

' Вычисление квадратного корня

dhSQR = Sqr(dblValue)

End If

End Function