Leren programmeren: zakgeld

Als VBA functie direct bruikbaar in Excel:

Function zakgeld(aantalonvoldoendes As Integer) As Integer

Select Case aantalonvoldoendes
Case 0
zakgeld = 25
Case 1
zakgeld = 19
Case 2
zakgeld = 12
Case Else
zakgeld = 6
End Select
End Function