Gruppe
UDF
Problem
Es sollen Zuschläge gem. vorgegebener Zuschlagstabelle errechnet werden.
StandardModule: basMain
Function Zuschlag(dValue As Double) As Double
Dim dAct As Double
Dim iValue As Integer
dAct = dValue Mod 500000
Select Case dAct
Case Is < 10000: iValue = 20
Case Is < 25000: iValue = 40
Case Is < 50000: iValue = 80
Case Is < 150000: iValue = 165
Case Is < 300000: iValue = 315
Case Is < 500000: iValue = 540
End Select
iValue = iValue + _
((dValue - (dValue Mod 500000)) / 500000) * 300
Zuschlag = iValue
End Function