- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
Процедура СформироватьТаблицуГрафика()
//Заполнение месяцев
Для НомерМесяца = 1 По 12 Цикл
НомерГода = Число(Прав(Год(ТекущаяДата()), 1));
ДатаМесяца = Дата(НомерГода, НомерМесяца, 1);
ДнейВМесяце = День(КонецМесяца(ДатаМесяца));
НоваяСтрока = КалендарьНаборЗаписей.Добавить();
НазваниеМесяца = Формат(ДатаМесяца, "ДФ=""ММММ""");
НоваяСтрока.Установить(0, НазваниеМесяца);
НоваяСтрока.НомерМесяца = НомерМесяца;
КонецЦикла;
КонецПроцедуры
Помимо дикости написанного, эта штука не работает в 2010 году.
Зарплата и Управление Персоналом 2.5.18.3