IBM Lotus Symphony


Function-Anweisung [Laufzeit]

Definiert eine Subroutine (ein Unterprogramm), die als Ausdruck verwendet werden kann, um einen Rückgabewert eines bestimmten Typs zu bestimmen.

Syntax

siehe Parameter

Parameter:

Syntax

Function Name[(VarName1 [As Typ][, VarName2 [As Typ][,...]]]) [As Typ]

Anweisungsblock

[Exit Function]

Anweisungsblock

End Function

Parameter

Name: Name der Subroutine, die den Rückgabewert der Funktion enthalten soll.

VarName: Parameter, der der Subroutine übergeben werden soll.

Typ: Typendeklarations-Schlüsselwort.

Beispiel:

Sub ExampleExit

Dim sReturn As String

Dim sListArray(10) as String

Dim siStep as Single

For siStep = 0 to 10 REM Matrix mit Testdaten füllen

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

REM Linsearch durchsucht ein TextArray:sList() nach einem TextEintrag:

REM Rückgabe ist der Index des Eintrags oder 0 (null)

for iCount=1 to Ubound( sList() )

if sList( iCount ) = sItem then

Exit for REM sItem gefunden

end if

next iCount

if iCount = Ubound( sList() ) then iCount = 0

LinSearch = iCount

end function


Produktfeedback | Zusätzliche Dokumentation | Marken