десятки » Поиск

Результаты по ключевому слову: десятки

Циклы в языке 1С, примеры и тест - какой цикл быстрее?

Циклы применяются для выполнения каких либо повторяющихся действий, возможные варианты перебора в цикле:

Перебираем строки с помощью цикла Для каждого

Код 1C v 8.3

 Для каждого ТекСтрока Из КоллекцияСтрок Цикл

// код обработки

КонецЦикла;

Перебираем строки с помощью цикла Пока

Код 1C v 8.3

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;

Перебираем строки с помощью цикла Для

Код 1C v 8.3

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла

Еще вариант, но советую его использовать только в без выходных ситуациях, Если

Код 1C v 8.3

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;

Примеры циклов

Код 1C v 8.2 УП

 &НаКлиенте

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

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

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

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

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

А какой цикл работает быстрее?

Итак, я нашел пять способов, как можно организовать цикл средствами 1С.

Первый вид цикла, назовем его условно «Для По» выглядит так:

Код 1C v 8.х

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;

Второй вид «Для Каждого»:

Код 1C v 8.х

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;

Третий «Пока»:

Код 1C v 8.х

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;

Далее вспомнил ассемблерную молодость & цикл «Если»:

Код 1C v 8.х

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;

Ну и напоследок «Рекурсия»

Код 1C v 8.х

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

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

Естественно, что относить рекурсию к циклам не совсем корректно, но тем ни менее с её помощью можно добиться похожих результатов. Сразу оговорюсь, что в дальнейшем тестировании рекурсия не участвовала. Во первых все тесты проводились при 1 000 000 итераций, а рекурсия выпадает уже при 2 000. Во вторых скорость рекурсии в десятки раз меньше, чем скорость остальных циклов.

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

Ну что ж, поехали. В качестве тела цикла использовалось чтение из заранее заполненного массива.

Код 1C v 8.х

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);

или, при использовании цикла «Для Каждого»

Код 1C v 8.х

 ПриемникТестовогоЗначения = Элем;

Тестирование проводилось на платформе 8.3.5.1231 для трех видов интерфейса (Обычное приложение, Управляемое приложение и Такси).

Результаты для 8.3.5.1231

Интерфейс	ДляПо	ДляКаждого	Пока	Если
Обычное приложение	5734,2	4680,4	7235,4	7263,0
Управляемое приложение	5962,4	4882,6	7497,4	7553,6
Такси	5937,2	4854,6	7500,8	7513,0

Числа это время в миллисекундах полученное с помощью функции ТекущаяУниверсальнаяДатаВМиллисекундах(), которую я вызывал до цикла и после его завершения. Числа дробные, потому что я использовал среднее арифметическое пяти замеров. Почему я не использовал Замер производительности? У меня не было цели замерить скорость каждой строчки кода, только скорость циклов с одинаковым результатом работы.

Казалось бы и все, но & тестировать так тестировать!

Результаты для 8.2.19.106

Интерфейс	ДляПо	ДляКаждого	Пока	Если
Обычное приложение	4411,8	3497,2	5432,0	5454,0
Управляемое приложение	4470,8	3584,8	5522,6	5541,0

В среднем платформа 8.2 на 25% быстрее, чем 8.3. Я немножко не ожидал такой разницы и решил провести тест на другой машине. Скажу только, что там 8.2 была быстрее процентов на 20.

Почему? Не знаю, дезасемблировать ядро в мои планы не входило, но в замер производительности я все же заглянул. Оказалось, что сами циклические операции в 8.3 проходят несколько быстрее, чем в 8.2. Но на строке

Код 1C v 8.х

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);

то есть при считывании элемента коллекции в переменную происходит значительное снижение производительность.

Для себя я сделал несколько выводов:

1. Если есть возможность использовать специализированный цикл & «Для Каждого», то лучше использовать его. Кстати, сам по себе он отрабатывает дольше чем другие циклы, но скорость доступа к элементу коллекции у него на много выше.

2. Если заранее знаешь количество итераций & используй «Для По». «Пока» отработает медленнее.

3. Если использовать цикл «Если» & другие программисты тебя явно не поймут.

В статье использованы материалы с хабра и хелпме

Категория: Встроенные Функции

Чем отличается 1С Базовая версия от ПРОФ

Когда возникает необходимость покупки ПО 1C, как правило, большая часть покупателей оказываются перед множеством выбора среди различных способов их приобретения, представляемых фирмой "1С" своим клиентам.

Кроме того, что пользователям доступны десятки различных решений, специально разработанных для разных задач одинаковое решение может выпускаться в виде различных вариантов, например, базовая поставка и версия ПРОФ . Непосредственно, об отличиях и особенностях базовых и ПРОФ версий решений компании "1С" будем говорить дальше.

Базовая поставка программ 1С - это, обычно, бюджетное ПО для одного пользователя. Как известно, базовые поставки предыдущей версии программ 1С:Предприятие 7.7 компанией "1С" теперь не выпускаются (например, купить базовая 1с ЗиУП 8 маожно, а вот ее аналог для 1С:Предприятие 7.7 больше не производится), то мы сравним возможности и ограничения базовой и ПРОФ версии программ 1С Предприятие 8.

Итак, базовая версия программ 1С - это, во-первых, локальная версия программы. Может возникнуть вопрос, но ведь и в описании к версии ПРОФ, так же написано "в комплект поставки включена лицензия на одного пользователя"? Разница заключается в том что, если в дальнейшем возникнет потребность добавить по локальной сети второго пользователя, для совместной работы нескольких пользователей, то для версии ПРОФ, достаточно купить клиентскую лицензию 1с, цена которой, как правило, меньше стоимости основной поставки. В базовой же версии организовать совместную работу по локальной сети нескольких пользователей невозможно. Ни покупка клиентских лицензий, ни покупка нескольких базовых версий не позволит работать нескольким сотрудникам в одной компьютерной сети.

Кроме вышеуказанного, относительно версии ПРОФ, базовая версия имеет ряд дополнительных ограничений, в том числе:

* не поддерживается изменение конфигурации, можно использовать только типовую конфигурацию и устанавливать ее обновления;
* не поддерживается ведение учета по нескольким фирмам в одной информационной базе; при этом имеется возможность ведения учета нескольких компаний в разных информационных базах на одном компьютере;
* одновременно с одной информационной базой может работать только один пользователь;
* не возможна работа в варианте клиент-сервер;
* не возможна работа распределенных информационных баз;
* не возможны COM-соединение и Automation-сервер.

Не смотря ни на что, базовая версия имеет ряд своих преимуществ. Несомненно - это ее цена! Купить 1С Предприятие 8.1 базовую версию для небольшого предприятия, где с программой будет работать только один сотрудник, будет по-настоящему бюджетным решением. Зарегистрированные пользователи имеют возможность бесплатного получения обновлений программы на инетрнет-сайте пользователей.

Кроме того, если Вы уже приобрели базовую версию, но в последствии выяснилось, что теперь Вам нужна версия ПРОФ. Можно будет приобрести ПРОФ версию этой же программы путем upgrade, т.е. заменой базовой версии на ПРОФ с зачетом стоимости.

Категория: 1С Общие вопросы - Обычные формы

Быстрая функция чтения данных с листа Excel

При чтении файла Excel я использую вариантный массив. Он позволяет быстро получить ВСЮ таблицу листа в память, а также получать данные массива целыми колонками. Тем самым время на чтение области файла Excel в таблицу значений сокращается в десятки раз.
Вот текст функции:

Код 1C v 8.х

 Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт



Если ЛистЭксель = Неопределено Тогда

    ЛистЭксель = ПолучитьCOMОбъект(,"Excel.Application");

КонецЕсли;

Если ВсегоСтрок = 0 Тогда

    ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;

КонецЕсли;

Если ВсегоКолонок = 0 Тогда

    ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;

КонецЕсли;

Если ТЗ = Неопределено Тогда

    ТЗ =  Новый ТаблицаЗначений;

    Для Счетчик = 1 По ВсегоКолонок Цикл

        ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));

    КонецЦикла;

КонецЕсли;

Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл

    НоваяСтрока = ТЗ.Добавить();

КонецЦикла;



Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));

Данные = Область.Value.Выгрузить();



Для Счетчик = 0 По ВсегоКолонок-1 Цикл

    ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);

КонецЦикла;

ЛистЭксель = Неопределено;

Возврат ТЗ;

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

Комментировать функцию, думаю, нет необходимости. Вот собственно и все, что я хотел сказать.
wildhog

Категория: Работа с Microsoft Office и OpenOffice

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

При помощи приведенных ниже функций можно вывести дату прописью, например:
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," ","")+дс+" "+е;

		КонецЕсли;

	Иначе

		

	КонецЕсли;

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

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

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

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

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

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