Как работает функция?

[ozzet]

Всем привет!
Гуглил, яндексил а также читал пару книжек по VB6 но так и не понял как работают функции(
Объясните мне не догоняющему пожалуйста с примером (
И желательно по простому)
Заранее спасибо)))

[Diamock]

Функция

Как и в математике, результатом работы функции является возвращаемое значение. Примером может служить функция вычисления налога на добавленную стоимость. Функция в качестве аргументов получает сумму нетто и налоговую ставку и должна возвращать сумму налога:

Код: Выделить всё

Function NDS(Netto As Currency, Percent As Single) As Currency
NDS = Netto * Percent
End Function

Для определения функции используется ключевое слово Function. В конце End Function. В данном случае в заголовке функции передаются два аргумента. Вас могут удивить два последних слова в первой строке кода. Объяснение этому очень простое: Visual Basic должен знать тип возвращаемого значения и слова за скобками указывают это тип. В примере в качестве возвращаемого значения передается денежная величина. Поэтому функцию нужно определять как As Currency.

Определение возвращаемого значения

Во второй строке процедуры вычисляется налог на добавленную стоимость, что с математической точки зрения не представляет никаких проблем. Особенность заключается в том, что имя функции используется одновременно как переменная. Это значит, что переменная с именем функции содержит возвращаемое значение.

Вызов функции несколько отличается от вызова процедуры:

Код: Выделить всё

Private Sub Commandl_Click()
Dim Tax As Currency
Tax = NDS(100, 0.15)
End Sub

Вызов функции

В этой процедуре вызывается функция NDS. В качестве аргументов ей передаются значения 100 и 0.15, являющиеся, соответственно, нетто и налоговой ставкой. Возвращаемое значение, в данном случае 15, присваивается переменной Tax.

Обратите внимание! При вызове функций аргументы указываются в скобках. Возвращаемое значение должно быть присвоено переменной.

[ozzet]

Вот это я и хотел увидеть БОЛЬШОЕ ВАМ СПАСИБО!))))