Aide LibreOffice 7.1
Définit une sous-routine pouvant être utilisée en tant qu'expression pour déterminer un type de retour.
Les instructions Sub, Function ou Property sont des méthodes similaires, sans distinction. Elles reçoivent des paramètres par référence leur permettant d'être modifiés. Le compilateur LibreOffice Basic accepte que leur syntaxe respective soit utilisée de manière interchangeable.
[Private | Public] Function Name[char] (argument1 [As Type][, argument2[char][,...]]) [As typename]
Instructions
[Exit Function]
instructions
End Function
portée: La portée de l’instruction Function est Public pardéfaut. Une portée Private désigne une routine interne de module, non destinée à être utilisée à partir d'autres modules.
nom: Nom du sous-programme devant contenir la valeur renvoyée par la fonction.
arguments: Paramètres à transmettre au sous-programme.
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 To 10 ' Remplir la matrice avec les données de test
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
' Linsearch recherche une TextEntry dans TextArray:sList() :
' La valeur retournée est l'index de l'entrée Or 0 (Null)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit For ' sItem trouvé
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function