Не могу покрасить в цвет

1С v8

25.04.17

✎

08:09

Процедура ЗаменаЦвета()
    Для каждого стр Из Объект.МесячныйСписок Цикл

Если Месяц(стр.Дата) < 5 Тогда

        Цвет = Новый Цвет(255, 0, 0);
    стр.Дата = Цвет;
    КонецЕсли;

КонецЦикла;

КонецПроцедуры

1 Lexey_

25.04.17

✎

08:13

(0) используй условное оформление

2 Неверный Параметр И

25.04.17

✎

08:13

Красный день календаря?

3 Гипервизор

25.04.17

✎

08:13

Хмм..
- Какая сегодня дата?
- Красный!
Так чтоли?

4 Повелитель

25.04.17

✎

08:14

Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

ОформлениеСтроки.Ячейки.Дата .ЦветФона = WebЦвета.СветлоКоралловый;

КонецПроцедуры

5 Неверный Параметр И

25.04.17

✎

08:15

(4) Объект -> УФ

6 Повелитель

25.04.17

✎

08:16

(5) Почему УФ?

7 Неверный Параметр И

25.04.17