Доброго времени суток! Переношу данные из 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%. Как реализовать? Помогите.
Экспорт данных в Excel
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
посмтори функцию format и ее разновидности
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
-
- Сообщения: 407
- Зарегистрирован: 13 сен 2004, 12:05
- Откуда: Курган
- Контактная информация:
А ты выкидывай из Дельфы округленное чило - round(<переменная,число>*100)/100
Чем проще - тем оригинальней, а значит гениально, т.к. все гениальное - просто!
Да! Кстати! Ctrl+V реально вставляет!!! ХDD

-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
Dr_Grizzly,
round берет целое число
round берет целое число
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
Спасибо всем, кто не был равнодушен к моей проблеме. Ваши советы навели меня на правильную мысль.
Вот так работает:
Sheet.Cells[10,4]:=roundto(100/3,-2);
Вот так работает:
Sheet.Cells[10,4]:=roundto(100/3,-2);