Function
provision(umsatz
As Double
)
As Double
'Funktion berechnet Provisionen abh\'a8angig
' vom Umsatz
' Dateiname: provision
Dim
provisionInProzent
As Double
Const
umsatzGrenze
As Double
= 100000
' Provisionen in Prozent
Const
provisionUmsatzGrenze
As Double
= 10
' bestimme Provision in Prozent
If
umsatz >= umsatzGrenze
Then
provisionInProzent = provisionUmsatzGrenze
Else
provisionInProzent = 0
End If
' Berechne auszuzahlenden Betrag
provision = (umsatz * provisionInProzent) / 100
End Function