[anghela]

нужно сделать округление числа до десятитысячных. Помогите, пожалуйста
код:

Код:

 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 подключен.

[icWasya]

Используй FormatFloat