Modul
Vsebina
Kazalo 🔎︎

# Ukaz Function

Definira podprogram, ki ga lahko uporabimo kot izraz določene vrste.

## Skladnja

glejte Parameter

## Parametri:

Skladnja

Function Ime[(ImeSpr1 [As Vrsta][, ImeSpr2 [As Vrsta][,...]]]) [As Vrsta]

blok ukazov

[Exit Function]

blok ukazov

End Function

Parameter

Ime: Ime podprograma, ki naj sprejme vrednost, ki jo funkcija vrne.

ImeSpr: parameter, ki se ga posreduje podprogramu.

Vrsta: ključna beseda za deklaracijo vrste.

## Primer:

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        For siKorak = 0 to 10 ' napolni polje s preizkusnimi podatki

            sListArray(siStep) = chr$(siStep + 65)

            MsgBox sListArray(siStep)

        Next siStep

        sReturn = LinSearch(sListArray(), "B")

        Print sReturn

    End Sub

    Function LinSearch( sList(), sItem As String ) As Integer

    Dim iCount As Integer

    ' LinIskanje išče v polju besedil TextArray:sSeznam() besedilo sVnos

    ' vrne indeks elementa ali pa 0 (Null)

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                Exit For ' sVnos je najden

            End If

        Next iCount

        If iCount = Ubound( sList() ) Then iCount = 0

        LinSearch = iCount

    End Function