нужно сделать округление числа до десятитысячных. Помогите, пожалуйста
код:
Код:
max_plat:=doxod*0.4;
summa:=max_plat*srok/(1+stavka/100*srok/12);
summa:=SimpleRoundTo(summa,-4);
Label12.Caption:='Максимальная сумма кредита на '+FloatToStr(srok)+' месяцев составляет '+FloatToStr(summa)+' рублей';
Результат не округляет, ошибку никакую не выводит. uses math подключен.