my 1C. Полезная информация.

Функция ПолучитьНазваниеМесяца(Знач НомерМесяца=0)
     Если (НомерМесяца<=0) И (НомерМесяца>12) тогда
          Возврат "";
     Иначе
          Возврат Формат(Дата(1980,НомерМесяца,1),"ДММММ");
    КонецЕсли;
КонецФункции //ПолучитьНазваниеМесяца
// *******************************************
Процедура Сформировать()
     Для нс=1 по 12 Цикл
          сообщить(ПолучитьНазваниеМесяца(нс)+" "+нс);
    КонецЦикла;
КонецПроцедуры


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки