FonctionUne fonction renvoie une valeur, cette valeur est passée au code appelant par le nom de la fonction Syntaxe
[Private ou Public] Function NomFonction([argument1 As Type, argument2 As Type,...]) As Type
................................... code .................................
NomFonction = ValeurARenvoyer
End Function
Puis pour utiser la fonction (dans la suite du code) :
Val = NomFonction(arg1, arg2,...) où Val est du même type que la valeur renvoyée par la fonction.
ExemplePrivate Function Comparaison(a As integer, b As integer) As String If a<b Then | Comparaison = "Le premier nombre est plus petit" |
Else | Comparaison = "Le deuxième nombre est plus petit" |
End If End Function Sub Main Dim Résultat As String Résultat= Comparaison(23, 11) Msgbox Résultat End sub La procédure Main affiche le message : "Le deuxième nombre est plus petit"