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

Вниз

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

← →
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;


---

Страницы: 1 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.005 c