Gewusst wie: Erstellen einer Prozedur, die einen Wert zurückgibt

Aktualisiert: November 2007

Mit einer Function-Prozedur geben Sie einen Wert an den Aufrufcode zurück.

Verwenden Sie außerhalb anderer Prozeduren eine Function-Anweisung, auf die eine End Function-Anweisung folgt.
Geben Sie in der Function-Anweisung nach dem Function-Schlüsselwort den Namen der Prozedur und danach die Parameterliste in Klammern ein.
Geben Sie nach den Klammern eine As-Klausel ein, um den Datentyp des zurückgegebenen Werts anzugeben.
Setzen Sie die Codeanweisungen der Prozedur zwischen die Anweisungen Function und End Function.
Verwenden Sie eine Return-Anweisung, um den Wert an den Aufrufcode zurückzugeben.

Mit der folgenden Function-Prozedur wird die längste Seite (die Hypotenuse) eines rechtwinkligen Dreiecks anhand der Werte der beiden anderen Seiten berechnet.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
Im folgenden Beispiel wird ein typischer Aufruf von hypotenuse dargestellt.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Siehe auch