Eigene Funktionen mit Argumenten

Herdt EX2003P K9.3/S.110

Wie vordefinierte können eigene Funktionen ein oder mehrere Argumente als Eingangswerte haben. Diese Argumente haben einen Typ und können zwingend oder optional sein. Optionale Argumente werden mit Optional eingeleitet und müssen immer am Ende der Liste stehen. Mit IsMissing(..) kann man prüfen, ob ein optionales Argument übergeben wurde.

Übung 4 und Übung 5

Diese Funktion liefert das aktuelle Jahr oder die angebene Zahl Jahre vorher oder nachher:

Function funJahr(Optional intJahre As Integer) As Integer
  If IsNumeric(intJahre) Then
    funJahr = Year(Date) + intJahre
  Else
    funJahr = Year(Date)
  End If
End Function

MsgBox ("Vorjahr: " & funJahr(-1))