- 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
guest 12.03.2010 18:37 # −1.4
guest 12.03.2010 20:42 # −1.4
guest 12.03.2010 23:21 # −1.2
guest 13.03.2010 14:37 # +1.8
guest 15.03.2010 20:51 # −3.2
Где здесь С++?