Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

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


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;



IronHawk   (2002-02-21 14:55) [4]

>>> Alx2 ©
ВОТ ЭТО Я ПОНИМАЮ !

СПАСИБО Alx2 © !!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
3-19105           alexts                2002-02-11 11:06  2002.03.07  
AutoIncrement


6-19274           Serg!                 2001-12-19 12:18  2002.03.07  
Подскажите плз как заставить net send egor message принимать мессаги на компе с 9Х/МЕ


1-19258           Demon[DZ]             2002-02-20 15:10  2002.03.07  
Component package


1-19223           Johnmen               2002-02-19 17:01  2002.03.07  
Тень отца Гамлета


3-19066           Bormanoid             2002-02-08 12:29  2002.03.07  
Использование Combobox c DB -2