НачалоПериода = ЖЗ.НачалоТекущегоПериода();

КонецПериода = ЖЗ.КонецТекущегоПериода();

ПериодСтрокой = ЖЗ.ОписательПериода(НачМес); //например "Январь 2002 г"

 

// Функция описывает период, определяемый датой и периодичностью

Функция ПолучитьПериодСтрокой(ДатаВПериоде, Периодичность) Экспорт

	Если Периодичность = "Год" Тогда

		ФорматДаты = "ДФ='гггг ""г.""'";

	ИначеЕсли Периодичность = "Квартал" Тогда

		ФорматДаты = "ДФ='к"" квартал"" гггг ""г.""'";

	ИначеЕсли Периодичность = "Месяц" Тогда

		ФорматДаты = "ДФ='ММММ гггг ""г.""'";

	ИначеЕсли Периодичность = "Неделя" Тогда

		ФорматДаты = "ДФ='""Неделя (""дд.ММ.гггг'";

	ИначеЕсли Периодичность = "День" Тогда

		ФорматДаты = "ДФ='дд.ММ.гггг ""г.""'";

	Иначе

		ФорматДаты = "";

	КонецЕсли;

	СтрокаПериод = "" + Формат(ДатаВПериоде, ФорматДаты);

	Если Периодичность = "Неделя" И ТипЗнч(ДатаВПериоде) = Тип("Дата") Тогда

		СтрокаПериод = "" + НеделяГода(ДатаВПериоде) + "-ая " + СтрокаПериод + Формат(КонецНедели(ДатаВПериоде), "ДФ='"" - ""дд.ММ.гггг)'");

	КонецЕсли;

	Возврат СтрокаПериод;

КонецФункции



//Обращение и результат

Сообщить(ПолучитьПериодСтрокой(Дата(2009,03,09),"Квартал"));   // 1 квартал 2009 г.

Сообщить(ПолучитьПериодСтрокой(Дата(2009,03,09),"День"));   // 09.03.2009 г..