| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос к многоуважаемым Мастерам ! Как лучше реализовать ? [D5, Win95/98, NT4, Win2k]
IronHawk © (2002-02-21 13:47:00)Очень нужно построить "процентрую ставку".
Был где-то код, но найти немогу, помогите ПЛЗ.
Пояснения:
если цифра от 1 до 100 - вычислить 5%
если от 101 до 150 - вычислить 4%
если от 151 до 200 - вычислить 3%
и т.д.
... заранее длагодарен !
IronHawk (2002-02-21 14:55:00) [1]>>> Alx2 ©
ВОТ ЭТО Я ПОНИМАЮ !
СПАСИБО Alx2 © !!
Alx2 (2002-02-21 14:21:00) [2]Это? :)
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;
IronHawk (2002-02-21 13:58:00) [3]>>> DieHard ©
Я в курсе ! :-/
Но через что кинуть, for, case, или дофига IF-ов ???
DieHard (2002-02-21 13:51:00) [4]Хм..
Всё ж сам уже написал, осталось перевести на Дельфийский :)
| |
