жз = СоздатьОбъект("ЖурналРасчетов.Зарплата");

пер = жз.ТекущийПериод();

Сообщить("Текущий период:" + Символ Табуляции + пер);

пер = пер.ПрибавитьПериод(1);

Сообщить("Период после:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(-2);

Сообщить("Период до:" + СимволТабуляции + пер);

 жз = СоздатьОбъект("ЖурналРасчетов.Зарплата");

жз.ВыбратьЗаписи(); // Позиционируемся на первом расчете ЖЗ

пер = жз.ПериодРегистрации; // или жз.ПериодДействия;

Сообщить("Период регистрации:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(1);

Сообщить("Период после:" + СимволТабуляции + пер);

пер = пер.ПрибавитьПериод(-2);

Сообщить("Период до:" + СимволТабуляции + пер);

 // пример от glory01

А = Формат('20020820153309', "ДФ=ММММ")

// А = "Август"

А = Формат(ТекущаяДата(), "ДФ=ММММ")

// А = "Март"

   

  Функция МесяцПрописью(НомерМесяца) Экспорт

    НомерМесяца=Число(НомерМесяца);

	Если НомерМесяца = 1 Тогда

		Возврат "Январь";

	ИначеЕсли НомерМесяца = 2 Тогда

		Возврат "Февраль";

	ИначеЕсли НомерМесяца = 3 Тогда

		Возврат "Март";

	ИначеЕсли НомерМесяца = 4 Тогда

		Возврат "Апрель";

	ИначеЕсли НомерМесяца = 5 Тогда

		Возврат "Май";

	ИначеЕсли НомерМесяца = 6 Тогда

		Возврат "Июнь";

	ИначеЕсли НомерМесяца = 7 Тогда

		Возврат "Июль";

	ИначеЕсли НомерМесяца = 8 Тогда

		Возврат "Август";

	ИначеЕсли НомерМесяца = 9 Тогда

		Возврат "Сентябрь";

	ИначеЕсли НомерМесяца = 10 Тогда

		Возврат "Октябрь";

	ИначеЕсли НомерМесяца = 11 Тогда

		Возврат "Ноябрь";

	ИначеЕсли НомерМесяца = 12 Тогда

		Возврат "Декабрь";

	Иначе

		Возврат "";

	КонецЕсли;

конецфункции