Доброго времени суток! Переношу данные из Dephi в Excel. Подскажите, как задать округление числа до двух знаков после запятой? Фрагмент кода такой:
Sheet:=XLAPP.Workbooks[1].Worksheets['Отчет'];
Sheet.Cells[10,3]:=IntToStr(j)+' из 17';
Sheet.Cells[10,4].Interior.Color:=clRed;
Sheet.Cells[10,4].HorizontalAlignment:=3;
Sheet.Cells[10,4]:=100/3; ???
Вопрос касается последней строчки кода. В ячейку Excel попадает значение 33,33333. А надо 33,33. Как реализовать? Помогите.

Наверно так:

К сожалению, не работает. Выдает сообщение "Нельзя установить свойство NumberFormat" класса Range

uses math;
...
roundto(1.234,-2)=1.23

Отлично! Спасибо огромнейшее!!!

Удалено модератором