Страница 1 из 1

Экспорт данных в Excel

Добавлено: 25 окт 2006, 14:57
Alex_AA
Доброго времени суток! Переношу данные из 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%. Как реализовать? Помогите.

Добавлено: 25 окт 2006, 15:55
Лелик_1044
посмтори функцию format и ее разновидности

Добавлено: 25 окт 2006, 18:06
Dr_Grizzly
А ты выкидывай из Дельфы округленное чило - round(<переменная,число>*100)/100

Добавлено: 25 окт 2006, 18:16
Лелик_1044
Dr_Grizzly,
round берет целое число

Добавлено: 26 окт 2006, 07:09
Alex_AA
Спасибо всем, кто не был равнодушен к моей проблеме. Ваши советы навели меня на правильную мысль.
Вот так работает:
Sheet.Cells[10,4]:=roundto(100/3,-2);