IBM Lotus Symphony


Sætningen Function [Runtime]

Definerer en underrutine, der kan benyttes som et udtryk til fastlæggelse af en returtype.

Syntaks

se Parametre

Parametre:

Syntaks

Function Navn[(VarNavn1 [As Type][, VarNavn2 [As Type][,...]]]) [As Type]

Sætningsblok

[Exit Function]

Sætningsblok

End Function

Parameter

Navn: Navnet på den underrutine, der skal indeholde den værdi, som returneres af funktionen.

VarNavn: Parameter, der skal overføres til underrutinen.

Type: Nøgleord til typeerklæring.

Eksempel:

Sub EksempelExit

Dim sRetur As String

Dim sListeMatrix(10) as String

Dim siTrin as Single

For siTrin = 0 to 10 REM Udfyld matrix med testdata

sListeMatrix(siTrin) = chr$(siTrin + 65)

MsgBox sListeMatrix(siTrin)

Next siTrin

sRetur = FindLinje(sListeMatrix(), "B")

Print sRetur

End Sub

Function FindLinje( sListe(), sElement As String ) As Integer

Dim iAntal As Integer

REM FindLinje søger i en TekstMatrix:sListe() efter en TekstIndgang:

REM Returværdien er indgangens indeks eller 0 (NULL)

for iAntal=1 to Ubound( sListe() )

if sListe( iAntal ) = sElement then

Exit For REM sElement fundet

End If

Next iAntal

If iAntal = Ubound( sListe() ) Then iAntal = 0

FindLinje = iAntal

End Function


Produktfeedback | Yderligere dokumentation | Varemærker