третьего » Поиск

Результаты по ключевому слову: третьего

Как установить сотруднице двойной вычет по НДФЛ? Категория: 1С Зарплата и Управление Персоналом 2.5

Периодическое выполнение кода с заданным интервалом времени - ОбработкаОжидания() Категория: Встроенные Функции

Как в запросе одно строковое поле разделить на два ( ПОДСТРОКА )? Категория: Запросы

Выборка из результата запроса всех вошедших в него значений группировок

При обходе результата запроса нередко возникает необходимость получения всех значений группировок внутри какой-либо другой группировки. Такая возможность может понадобиться, например, при выводе кросс отчета. Для обеспечения такой возможности в объекте ВыборкаИзРезультатаЗапроса предусмотрен третий параметр функции Выбрать().

Рассмотрим пример. Пусть нам необходимо получить кросс-отчет по остаткам номенклатуры на различных складах. Номенклатуру необходимо вывести в строках, склады - в колонках.
Запрос для получения остатков будет выглядеть так:

Код 1C v 8.х

 ВЫБРАТЬ

    УчетНоменклатурыОстатки.Номенклатура КАК Номенклатура, 

    УчетНоменклатурыОстатки.Номенклатура.Представление, 

    УчетНоменклатурыОстатки.Склад КАК Склад, 

    УчетНоменклатурыОстатки.Склад.Представление, 

    УчетНоменклатурыОстатки.КоличествоОстаток КАК КоличествоОстаток 

ИЗ 

    РегистрНакопления.УчетНоменклатуры.Остатки КАК УчетНоменклатурыОстатки 

ИТОГИ СУММА(КоличествоОстаток) ПО 

    ОБЩИЕ, 

    Номенклатура, 

    Склад

Для обхода номенклатуры воспользуемся выборкой из результата запроса:

Код 1C v 8.х

 ВыборкаНоменклатура = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");

Пока ВыборкаНоменклатура.Следующий() Цикл 

    ОбластьНоменклатура.Параметры.Заполнить(ВыборкаНоменклатура);

    ТабДок.Вывести(ОбластьНоменклатура);

Для обхода внутри номенклатуры всех складов, присутствующих в результате запроса, получим вложенную выборку от выборки номенклатуры, с указанием третьего параметра "ВСЕ":

Код 1C v 8.х

 ВыборкаСклад = ВыборкаНоменклатура.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Склад", "ВСЕ");

Пока ВыборкаСклад.Следующий() Цикл 

    ОбластьСклад.Параметры.Заполнить(ВыборкаСклад);

    ТабДок.Присоединить(ОбластьСклад);

КонецЦикла;

В случае если необходимо построить несколько отдельных кросс-таблиц для каждого значения некой группировки, необходимо в качестве третьего параметра выборки указать имя группировки, внутри которой необходимо получить все значения, вошедшие в запрос.
Пример:

Код 1C v 8.х

 ВыборкаСклад = ВыборкаНоменклатура.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Склад", "Организация");

В данном примере будут получены все значения складов, присутствующие в ранее выбранной организации.

Категория: Запросы

Дополнение результата запроса Датами в Установленном ПЕРИОДЕ

Иногда возникает необходимость вывести в отчет информацию таким образом, чтобы некоторые итоговые значения были рассчитаны на каждую дату в заданном интервале с указанной периодичностью. Например, требуется получить обороты по неделям вне зависимости от того, были ли обороты в конкретную неделю или нет. Для решения подобной задачи в языке запросов предусмотрена конструкция ПЕРИОДАМИ. Данная конструкция указывается в предложении ИТОГИ после поля "Период". После ключевого слова ПЕРИОДАМИ в скобках указывается вид периода (одно из Секунда, Минута, Час, День, Неделя, Месяц, Квартал, Год, Декада, Полугодие), начальная и конечные даты интересуемого периода. В случае если начальные и конечные даты не указаны, будут использованы первая и последняя даты, участвующие в результате.

Пример:

Код 1C v 8.х

 ВЫБРАТЬ 

    УчетНоменклатурыОбороты.Период КАК Период,

    УчетНоменклатурыОбороты.КоличествоОборот КАК КоличествоОборот

ИЗ

    РегистрНакопления.УчетНоменклатуры.Обороты(, , Неделя, ) КАК УчетНоменклатурыОбороты 



УПОРЯДОЧИТЬ ПО 

    Период 



ИТОГИ СУММА(КоличествоОборот) ПО

    Период ПЕРИОДАМИ(НЕДЕЛЯ,,)

Результат данного запроса будет дополнен записями на даты начала каждой недели.

Заметим, что так как для дополненных периодов в результате запроса отсутствуют детальные записи, то дополненные записи будут получаться из выборки только в том случае, если при обходе выборки будут получаться все периоды, участвующие в запросе, что достигается установкой третьего параметра функции "Выбрать" результата запроса.

Пример:

Код 1C v 8.х

 ВыборкаПериод = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Период", "ВСЕ"); 

Пока ВыборкаПериод.Следующий() Цикл 

    ОбластьПериод.Параметры.Заполнить(ВыборкаПериод); 

    ТабДок.Вывести(ОбластьПериод, ВыборкаПериод.Уровень()); 

КонецЦикла;

Категория: Запросы

Функция РАЗНОСТЬДАТ

РАЗНОСТЬДАТ(<Выражение>, <Выражение>, Секунда | Минута | Час | День | Месяц | Квартал | Год)
В качестве первого параметра передается выражение, значение которого необходимо вычесть из значения второго параметра.
В качестве второго параметра функции передается выражение, из которого необходимо вычесть значение первого параметра.
Третий параметр содержит единицу измерения, в которой необходимо получить результат функции. В качестве третьего параметра можно использовать следующие значения: Секунда, Минута, Час, День, Месяц, Квартал, Год. При расчете результата функция игнорирует единицы измерения, которые меньше, чем указанная в данном параметре единица.

Например, если в качестве третьего параметра указать Час, то при расчете результата будут игнорироваться минуты и секунды, присутствующие в первых двух параметрах. Если же в третьем параметре указать Месяц, то игнорироваться будут дни, часы, минуты и секунды.

Рассмотрим, какие значения будет возвращать функция при различных значениях третьего параметра:

Код 1C v 8.х

 

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), СЕКУНДА) // 82 652

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МИНУТА) // 1 378

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ЧАС) // 23

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ДЕНЬ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МЕСЯЦ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), КВАРТАЛ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ГОД) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), СЕКУНДА) // 31 535 999

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МИНУТА) // 525 599

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ЧАС) // 8 759

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ДЕНЬ) // 364

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МЕСЯЦ) // 11

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), КВАРТАЛ) // 3

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ГОД) // 0

Категория: Запросы

Функция Дата прописью

При помощи приведенных ниже функций можно вывести дату прописью, например:
03.08.2009 - третье августа две тысячи девятого года

Код 1C v 8.х

 

// Функция Дата прописью

// Параметры:

// ДП - Дата

// Возвращаемое значение:

// дата прописью

// 

// Модификация для v8: Evgeny Migachev

Функция ДатаПрописью(ДП) Экспорт

	стрРез = "";

	Д=Формат(ДП,"ДЛФ=D");

	спсМес = Новый СписокЗначений;

	спсМес.Добавить("января");

	спсМес.Добавить("февраля");

	спсМес.Добавить("марта");

	спсМес.Добавить("апреля");

	спсМес.Добавить("мая");

	спсМес.Добавить("июня");

	спсМес.Добавить("июля");

	спсМес.Добавить("августа");

	спсМес.Добавить("сентября");

	спсМес.Добавить("октября");

	спсМес.Добавить("ноября");

	спсМес.Добавить("декабря");

	

	спсЧисл = Новый СписокЗначений;

	спсЧисл.Добавить("первое","первого");

	спсЧисл.Добавить("второе","второго");

	спсЧисл.Добавить("третье","третьего");

	спсЧисл.Добавить("четвертое","четвертого");

	спсЧисл.Добавить("пятое","пятого");

	спсЧисл.Добавить("шестое","шестого");

	спсЧисл.Добавить("седьмое","седьмого");

	спсЧисл.Добавить("восьмое","восьмого");

	спсЧисл.Добавить("девятое","девятого");

	

	//числительные им.падеж

	спсЧислИм = Новый СписокЗначений;

	спсЧислИм.Добавить("тысяча","тысячного");

	спсЧислИм.Добавить("две тысячи","двухтысячного");

	спсЧислИм.Добавить("три тысячи","трехтысячного");

	спсЧислИм.Добавить("четыре тысячи","четырёхтысячного");

	спсЧислИм.Добавить("пять","пятитысячного");

	спсЧислИм.Добавить("шесть","шеститысячного");

	спсЧислИм.Добавить("семь","семитысячного");

	спсЧислИм.Добавить("восемь","восьмитысячного");

	спсЧислИм.Добавить("девять","девятитысячного");

	

	спсСотни = Новый СписокЗначений;

	спсСотни.Добавить("сто");

	спсСотни.Добавить("двести");

	спсСотни.Добавить("триста");

	спсСотни.Добавить("четыреста");

	спсСотни.Добавить("пятьсот");

	спсСотни.Добавить("шестьсот");

	спсСотни.Добавить("семьсот");

	спсСотни.Добавить("восемьсот");

	спсСотни.Добавить("девятьсот");

	

	//десятки им.падеж

	спсДесИм = Новый СписокЗначений;

	спсДесИм.Добавить("","десятого");

	спсДесИм.Добавить("двадцать","двадцатого");

	спсДесИм.Добавить("тридцать","тридцатого");

	спсДесИм.Добавить("сорок","сорокового");

	спсДесИм.Добавить("пятьдесят","пятидесятого");

	спсДесИм.Добавить("шестьдесят","шестидесятого");

	спсДесИм.Добавить("семьдесят","семидесятого");

	спсДесИм.Добавить("восемьдесят","восьмидесятого");

	спсДесИм.Добавить("девяносто","девяностого");

	

	//субдесятки род.падеж

	спсСубДесРод = Новый СписокЗначений;

	спсСубДесРод.Добавить("одиннадцатого");

	спсСубДесРод.Добавить("двенадцатого");

	спсСубДесРод.Добавить("тринадцатого");

	спсСубДесРод.Добавить("четырнадцатого");

	спсСубДесРод.Добавить("пятнадцатого");

	спсСубДесРод.Добавить("шестнадцатого");

	спсСубДесРод.Добавить("семнадцатого");

	спсСубДесРод.Добавить("восемнадцатого");

	спсСубДесРод.Добавить("девятнадцатого");

	

	спсДес = Новый СписокЗначений;

	спсДес.Добавить("десятое");

	спсДес.Добавить("двадцатое","двадцать");

	спсДес.Добавить("тридцатое","тридцать");

	спсДес.Добавить("сороковое","тридцать");

	спсДес.Добавить("пятидесятое","тридцать");

	спсДес.Добавить("шестидесятое","тридцать");

	спсДес.Добавить("семидесятое","тридцать");

	

	спсСубДес = Новый СписокЗначений;

	спсСубДес.Добавить("одиннадцатое");

	спсСубДес.Добавить("двенадцатое");

	спсСубДес.Добавить("тринадцатое");

	спсСубДес.Добавить("четырнадцатое");

	спсСубДес.Добавить("пятнадцатое");

	спсСубДес.Добавить("шестнадцатое");

	спсСубДес.Добавить("семнадцатое");

	спсСубДес.Добавить("восемнадцатое");

	спсСубДес.Добавить("девятнадцатое");

	

	спсДаты = СтрЗаменить(СокрЛП(Д),".",Символы.ПС);

	//разбираем день

	стрДень = СокрЛП(Число(СтрПолучитьСтроку(спсДаты,1)));

	Если СтрДлина(стрДень)=1 Тогда

		стрДень = спсЧисл.Получить(Число(стрДень)-1).Значение;

	Иначе

		десДень = Число(Лев(стрДень,1));

		едДень = Число(Прав(стрДень,1));

		

		Если едДень=0 Тогда

			стрДень = спсДес.Получить(десДень-1).Значение;

		Иначе

			Если десДень>1 Тогда

				т = Строка(спсДес.Получить(десДень-1));

				стрДень = т+" "+Строка(спсЧисл.Получить(едДень-1).Значение);

			Иначе

				стрДень = спсСубДес.Получить(едДень-1).Значение;

			КонецЕсли;

		КонецЕсли;

	КонецЕсли;

	//разбираем месяц

	стрМес = спсМес.Получить(Число(СтрПолучитьСтроку(спсДаты,2))-1).Значение;

	

	//разбираем год

	стрГод = СтрПолучитьСтроку(спсДаты,3);

	длинаГода = СтрДлина(стрГод);

	Если длинаГода=4 Тогда

		тыс = Сред(стрГод,1,1); сот = Сред(стрГод,2,1); дес = Сред(стрГод,3,1); ед = Сред(стрГод,4,1);

		_т = спсЧислИм.Получить(Число(тыс)-1).Значение;

		Если (Число(сот)=0) и (Число(дес)=0) и (Число(ед)=0) Тогда

			миллениум = Строка(спсЧислИм.Получить(Число(тыс)-1));

			стрГод = миллениум;

		Иначе

			с = ""; дс = ""; е = "";

			Если Число(сот)<>0 Тогда

				с = спсСотни.Получить(Число(сот)-1).Значение;

			КонецЕсли;

			Если Число(дес)<>0 Тогда

				Если Число(ед)=0 Тогда

					дг = Строка(спсДесИм.Получить(Число(дес)-1));

					дс = дг; 	

				Иначе

					дс = спсСубДесРод.Получить(Число(ед)-1).Значение;

				КонецЕсли;

			КонецЕсли;

			Если (Число(дес)>1) или (Число(дес)=0) Тогда

				Если Число(ед)<>0 Тогда

					е =Строка(спсЧисл.Получить(Число(ед)-1));

				КонецЕсли;

			КонецЕсли;

			стрГод = Строка(_т)+" "+Строка(с)+" "+Строка(дс)+" "+Строка(е);

		КонецЕсли;

	Иначе

		

	КонецЕсли;

	стрГод = стрГод+" года";

	стрГод = СтрЗаменить(стрГод,"  "," ");

	стрРез = Строка(стрДень)+" "+Строка(стрМес)+" "+Строка(стрГод);

	стрРез = СтрЗаменить(стрРез,"  "," ");

	Возврат стрРез;

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



Процедура КнопкаВыполнитьНажатие(Кнопка)

	сообщить(ДатаПрописью(РеквизитДатаНаФорме));

КонецПроцедуры

Код 1C v 7.x

 

// ПрописьДата()

//

// Параметры:

// Д - дата в формате ДД.MM.ГГГГ

// Возвращаемое значение:

// дата прописью

// 

// Автор: hunter

Функция глПрописьДата(Д) Экспорт

	стрРез = "";

	

	спсМес = СоздатьОбъект("СписокЗначений");

	спсМес.ДобавитьЗначение("января");

	спсМес.ДобавитьЗначение("февраля");

	спсМес.ДобавитьЗначение("марта");

	спсМес.ДобавитьЗначение("апреля");

	спсМес.ДобавитьЗначение("мая");

	спсМес.ДобавитьЗначение("июня");

	спсМес.ДобавитьЗначение("июля");

	спсМес.ДобавитьЗначение("августа");

	спсМес.ДобавитьЗначение("сентября");

	спсМес.ДобавитьЗначение("октября");

	спсМес.ДобавитьЗначение("ноября");

	спсМес.ДобавитьЗначение("декабря");

	

	спсЧисл = СоздатьОбъект("СписокЗначений");

	спсЧисл.ДобавитьЗначение("первое","первого");

	спсЧисл.ДобавитьЗначение("второе","второго");

	спсЧисл.ДобавитьЗначение("третье","третьего");

	спсЧисл.ДобавитьЗначение("четвертое","четвертого");

	спсЧисл.ДобавитьЗначение("пятое","пятого");

	спсЧисл.ДобавитьЗначение("шестое","шестого");

	спсЧисл.ДобавитьЗначение("седьмое","седьмого");

	спсЧисл.ДобавитьЗначение("восьмое","восьмого");

	спсЧисл.ДобавитьЗначение("девятое","девятого");

	

	//числительные им.падеж

	спсЧислИм = СоздатьОбъект("СписокЗначений");

	спсЧислИм.ДобавитьЗначение("тысяча","тысячного");

	спсЧислИм.ДобавитьЗначение("две тысячи","двухтысячного");

	спсЧислИм.ДобавитьЗначение("три тысячи","трехтысячного");

	спсЧислИм.ДобавитьЗначение("четыре тысячи","четырёхтысячного");

	спсЧислИм.ДобавитьЗначение("пять","пятитысячного");

	спсЧислИм.ДобавитьЗначение("шесть","шеститысячного");

	спсЧислИм.ДобавитьЗначение("семь","семитысячного");

	спсЧислИм.ДобавитьЗначение("восемь","восьмитысячного");

	спсЧислИм.ДобавитьЗначение("девять","девятитысячного");

	

	спсСотни = СоздатьОбъект("СписокЗначений");

	спсСотни.ДобавитьЗначение("сто");

	спсСотни.ДобавитьЗначение("двести");

	спсСотни.ДобавитьЗначение("триста");

	спсСотни.ДобавитьЗначение("четыреста");

	спсСотни.ДобавитьЗначение("пятьсот");

	спсСотни.ДобавитьЗначение("шестьсот");

	спсСотни.ДобавитьЗначение("семьсот");

	спсСотни.ДобавитьЗначение("восемьсот");

	спсСотни.ДобавитьЗначение("девятьсот");

	

	//десятки им.падеж

	спсДесИм = СоздатьОбъект("СписокЗначений");

	спсДесИм.ДобавитьЗначение("","десятого");

	спсДесИм.ДобавитьЗначение("двадцать","двадцатого");

	спсДесИм.ДобавитьЗначение("тридцать","тридцатого");

	спсДесИм.ДобавитьЗначение("сорок","сорокового");

	спсДесИм.ДобавитьЗначение("пятьдесят","пятидесятого");

	спсДесИм.ДобавитьЗначение("шестьдесят","шестидесятого");

	спсДесИм.ДобавитьЗначение("семьдесят","семидесятого");

	спсДесИм.ДобавитьЗначение("восемьдесят","восьмидесятого");

	спсДесИм.ДобавитьЗначение("девяносто","девяностого");

	

	//субдесятки род.падеж

	спсСубДесРод = СоздатьОбъект("СписокЗначений");

	спсСубДесРод.ДобавитьЗначение("одиннадцатого");

	спсСубДесРод.ДобавитьЗначение("двенадцатого");

	спсСубДесРод.ДобавитьЗначение("тринадцатого");

	спсСубДесРод.ДобавитьЗначение("четырнадцатого");

	спсСубДесРод.ДобавитьЗначение("пятнадцатого");

	спсСубДесРод.ДобавитьЗначение("шестнадцатого");

	спсСубДесРод.ДобавитьЗначение("семнадцатого");

	спсСубДесРод.ДобавитьЗначение("восемнадцатого");

	спсСубДесРод.ДобавитьЗначение("девятнадцатого");

	

	спсДес = СоздатьОбъект("СписокЗначений");

	спсДес.ДобавитьЗначение("десятое");

	спсДес.ДобавитьЗначение("двадцатое","двадцать");

	спсДес.ДобавитьЗначение("тридцатое","тридцать");

	спсДес.ДобавитьЗначение("сороковое","тридцать");

	спсДес.ДобавитьЗначение("пятидесятое","тридцать");

	спсДес.ДобавитьЗначение("шестидесятое","тридцать");

	спсДес.ДобавитьЗначение("семидесятое","тридцать");

	

	спсСубДес = СоздатьОбъект("СписокЗначений");

	спсСубДес.ДобавитьЗначение("одиннадцатое");

	спсСубДес.ДобавитьЗначение("двенадцатое");

	спсСубДес.ДобавитьЗначение("тринадцатое");

	спсСубДес.ДобавитьЗначение("четырнадцатое");

	спсСубДес.ДобавитьЗначение("пятнадцатое");

	спсСубДес.ДобавитьЗначение("шестнадцатое");

	спсСубДес.ДобавитьЗначение("семнадцатое");

	спсСубДес.ДобавитьЗначение("восемнадцатое");

	спсСубДес.ДобавитьЗначение("девятнадцатое");

	

	спсДаты = СтрЗаменить(СокрЛП(Д),".",РазделительСтрок);

	//разбираем день

	стрДень = СокрЛП(Число(СтрПолучитьСтроку(спсДаты,1)));

	Если СтрДлина(стрДень)=1 Тогда

		стрДень = спсЧисл.ПолучитьЗначение(Число(стрДень));

	Иначе

		десДень = Число(Лев(стрДень,1));

		едДень = Число(Прав(стрДень,1));

		

		Если едДень=0 Тогда

			стрДень = спсДес.ПолучитьЗначение(десДень);

		Иначе

			Если десДень>1 Тогда

				т = ""; спсДес.ПолучитьЗначение(десДень,т);

				стрДень = т+" "+спсЧисл.ПолучитьЗначение(едДень);

			Иначе

				стрДень = спсСубДес.ПолучитьЗначение(едДень);

			КонецЕсли;

		КонецЕсли;

	КонецЕсли;

	//разбираем месяц

	стрМес = спсМес.ПолучитьЗначение(Число(СтрПолучитьСтроку(спсДаты,2)));

	

	//разбираем год

	стрГод = СтрПолучитьСтроку(спсДаты,3);

	длинаГода = СтрДлина(стрГод);

	Если длинаГода=4 Тогда

		тыс = Сред(стрГод,1,1); сот = Сред(стрГод,2,1); дес = Сред(стрГод,3,1); ед = Сред(стрГод,4,1);

		_т = спсЧислИм.ПолучитьЗначение(Число(тыс));

		Если (Число(сот)=0) и (Число(дес)=0) и (Число(ед)=0) Тогда

			миллениум = ""; спсЧислИм.ПолучитьЗначение(Число(тыс),миллениум);

			стрГод = миллениум;

		Иначе

			с = ""; дс = ""; е = "";

			Если Число(сот)<>0 Тогда

				с = спсСотни.ПолучитьЗначение(Число(сот));

			КонецЕсли;

			Если Число(дес)<>0 Тогда

				Если Число(ед)=0 Тогда

					_дг = ""; спсДесИм.ПолучитьЗначение(Число(дес),_дг);

					дс = _дг;

				Иначе

					Если Число(дес)>1 Тогда

						дс = спсДесИм.ПолучитьЗначение(Число(дес));

					Иначе

						дс = спсСубДесРод.ПолучитьЗначение(Число(ед));

					КонецЕсли;

				КонецЕсли;

			КонецЕсли;

			Если (Число(дес)>1) или (Число(дес)=0) Тогда

				Если Число(ед)<>0 Тогда

					//е = "";

					спсЧисл.ПолучитьЗначение(Число(ед),е);

				КонецЕсли;

			КонецЕсли;

			стрГод = _т+?(ПустоеЗначение(с)=0," ","")+с+?(ПУстоеЗначение(дс)=0," ","")+дс+" "+е;

		КонецЕсли;

	Иначе

		

	КонецЕсли;

	стрГод = стрГод+" года";

	стрРез = стрДень+" "+стрМес+" "+стрГод;

	//Сообщить(стрДень+" "+стрМес+" "+стрГод);

	Возврат стрРез;

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

Категория: Работа с Датами (Временем)

Какие ключи командной строки используются для запуска приложений 1С Категория: Администрирование