Eigene Funktionen erstellen

Herdt EX2003P K9.2/S.108

Wiederverwendbare Verarbeitungen sollte man in eigene Prozeduren und Funktionen auslagern. 

Eine Funktion gib einen Wert von einem bestimmten Typ zurück. Eigene Funktionen schreibt man zwischen Function und End Function. Im Funktionscode muss dem Funktionsnamen ein Wert zugewiesen werden.  

Function funAktuellesJahr() As Integer
  Dim dateAktuell As Date
  dateAktuell = Date
  funAktuellesJahr = Year(dateAktuell)
End Function

Die eigene Funktion wird wie eine vordefinierte aufgerufen:
MsgBox ("Jahr: " & funAktuellesJahr())