Function und End
Function eingeschlossen sind. Eine Function-Prozedur ähnelt einer Sub-Prozedur, kann aber auch einen Wert zurückgeben. Eine Function-Prozedur kann , wie z.B. , oder verwenden, die über die aufgerufene Prozedur übergeben werden. Wenn eine Function-Prozedur über keine Argumente verfügt, muß deren Function-Anweisung ein leeres Klammernpaar enthalten. Eine Funktion gibt einen Wert zurück, indem ihrem Namen ein Wert in einer oder mehreren Anweisungen der Prozedur zugewiesen wird.
Im folgenden Beispiel berechnet die Celsius-Funktion Celsius-Grade aus Fahrenheit-Graden. Wenn die Funktion aus der Main-Prozedur aufgerufen wird, wird eine den Argumentwert enthaltende Variable der Funktion übergeben. Das Ergebnis der Berechnung wird an die aufrufende Prozedur zurückgegeben und in einem Meldungsfeld angezeigt.
Sub Main()
temp = InputBox(Prompt:= _
"Geben Sie die Temperatur in Fahrenheit ein.")
MsgBox "Die Temperatur entspricht " & Celsius(temp) & " Grad Celsius."
End Sub
Function Celsius(fGrad)
Celsius = (fGrad - 32) * 5 / 9
End Function
Ulf