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

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Alex_AA
Сообщения: 5
Зарегистрирован: 25 окт 2006, 06:07

Доброго времени суток! Переношу данные из 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%. Как реализовать? Помогите.
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

посмтори функцию format и ее разновидности
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
Dr_Grizzly
Сообщения: 407
Зарегистрирован: 13 сен 2004, 12:05
Откуда: Курган
Контактная информация:

А ты выкидывай из Дельфы округленное чило - round(<переменная,число>*100)/100
Чем проще - тем оригинальней, а значит гениально, т.к. все гениальное - просто! ;) Да! Кстати! Ctrl+V реально вставляет!!! ХDD
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

Dr_Grizzly,
round берет целое число
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
Alex_AA
Сообщения: 5
Зарегистрирован: 25 окт 2006, 06:07

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