| Private Function Calc(Amt as Decimal) as Decimal
Dim RetVal as new Decimal(2)
Select Case Amt
Case 0 To 7150
RetVal = Amt * .1
Case 7151 To 29050
RetVal = (Amt * .15) + 715
... and So On...
End Select
Return RetVal
End Function
' To Call It
Msgbox(Calc(456.45))
Last edited by ccoonen : 11-16-2007 at 11:50 AM.
|