Вопрос к многоуважаемым Мастерам ! Как лучше реализовать ?

← →
IronHawk © (2002-02-21 13:47) [0]

Очень нужно построить "процентрую ставку".
Был где-то код, но найти немогу, помогите ПЛЗ.

Пояснения:
если цифра от 1 до 100 - вычислить 5%
если от 101 до 150 - вычислить 4%
если от 151 до 200 - вычислить 3%
и т.д.

... заранее длагодарен !

← →
DieHard © (2002-02-21 13:51) [1]

Хм..
Всё ж сам уже написал, осталось перевести на Дельфийский :)

← →
IronHawk © (2002-02-21 13:58) [2]

>>> DieHard ©
Я в курсе ! :-/
Но через что кинуть, for, case, или дофига IF-ов ???

← →
Alx2 © (2002-02-21 14:21) [3]

Это? :)
function ProcentSt(Value : currency):currency; begin case round(value) of 1..100 : Result := Value*0.05; 101..150 : Result := Value*0.04; 151..200 : Result := Value*0.03; else Result := // Если ничего не подошло :)) end; end;

Вопрос к многоуважаемым Мастерам ! Как лучше реализовать ? Найти похожие ветки