Comment : créer une procédure qui retourne une valeur

Mise à jour : novembre 2007

Vous utilisez une procédure Function pour retourner une valeur au code appelant.

En dehors de toute autre procédure, utilisez une instruction Function, suivie d'une instruction End Function
Dans l'instruction Function, faites suivre le mot clé Function du nom de la procédure, puis de la liste de paramètres entre parenthèses.
Faites suivre les parenthèses d'une clause As pour spécifier le type de données de la valeur retournée.
Placez les instructions de code de la procédure entre les instructions Function et End Function
Utilisez une instruction Return pour retourner la valeur au code appelant.

La procédure Function suivante calcule le côté le plus long, ou hypoténuse, d'un triangle rectangle, d'après les valeurs des deux autres côtés.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
L'exemple suivant montre un appel typique à hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Voir aussi