месяцы » Поиск

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

Универсальный парсер RSS для 1С

На одном проекте - клиент попросил отображать в программе данные, которые выдаю специализированные сайта в формате RSS - Что делать !?

Писать парсер rss для 1С

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

Выяснилось что сайты имеют разные форматы ввода RSS и главное они не валидные(

таким образом, написав небольшой код, который получает ссылку, далее XMLФайл.Прочитать() на одном сайте проходил на ура (этот пример я описывал в статье: Чтение данных с сайта в формате XML и загрузка в 1С), а вот второй сайт, и третий тоже, при попытке прочитать() выдавали:

{ОбщийМодуль.РегЗадания.Модуль(79)}: Ошибка при вызове метода контекста (Прочитать)

Пока XMLФайл.Прочитать() Цикл

по причине:

Ошибка разбора XML: - [1,1]

Фатальная ошибка:

Extra content at the end of the document

SystemId url rss

решил попробовать на rss других известных сайтов - 80% из проверяемых выдавали ошибку

Пришлось написать прямой построчный парсер RSS:

Структура конфигурации

ИсточникиRSS - URL на RSS, ДанныеRSS - сюда записываются загруженные данные новостей

Код получился таким(в принципе код универсальный, но возможно что-то придется подпилить):

Код 1C v 8.3

 

// RSS

Процедура ПрочитатьRSS(ИсточникRSS)

	url = ИсточникRSS.UrlRSS;

	

	// Получим Сервер

	Если Найти(url,".ru")>0 Тогда urlСервер = Лев(url,Найти(url,".ru")+2);	

	ИначеЕсли Найти(url,".com")>0 Тогда urlСервер = Лев(url,Найти(url,".com")+3);

	ИначеЕсли Найти(url,".org")>0 Тогда urlСервер = Лев(url,Найти(url,".org")+3);

	ИначеЕсли Найти(url,".info")>0 Тогда urlСервер = Лев(url,Найти(url,".info")+4);

	ИначеЕсли Найти(url,".pro")>0 Тогда urlСервер = Лев(url,Найти(url,".pro")+3);

	КонецЕсли;	 		

		

	//Определим тип соединения

	Если Лев(url,5)="https" Тогда

		//ssl = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows(), Новый СертификатыУдостоверяющихЦентровWindows());   

		ssl = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено );

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"https://",""); 

		Соединение = Новый HTTPСоединение(Сервер,,,,,

		5, // таймаут в секундах

		ssl // защищенное HTTPS соединение

		);

	Иначе //Обычный HTTP 		

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"http://","");

		Соединение = Новый HTTPСоединение(Сервер);

	КонецЕсли;





	Заголовки = Новый Соответствие;

	Заголовки.Вставить("host", Сервер);  

	Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);

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

	Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их

		Содержимое= Ответ.ПолучитьТелоКакСтроку();

		//Преобразуем содержимое

		Содержимое = СтрЗаменить(Содержимое,"<br/>","|"); 

		Содержимое = СтрЗаменить(Содержимое,"<![CDATA[",""); Содержимое = СтрЗаменить(Содержимое,"]]>","");  

		Содержимое = СтрЗаменить(Содержимое,Символы.ПС,""); Содержимое = СтрЗаменить(Содержимое,Символы.ВК,""); 

		Содержимое = СтрЗаменить(Содержимое,Символы.ВТаб,""); Содержимое = СтрЗаменить(Содержимое,Символы.Таб,""); 

		Содержимое = СтрЗаменить(Содержимое,"><",">"+Символы.ПС+"<"); 

		

		RegExp = Новый COMОбъект("VBScript.RegExp"); //Регулярка

		RegExp.IgnoreCase = Ложь; 

		RegExp.Global = Истина;    

		RegExp.MultiLine = Истина;   		

		RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML   

		

		//Разберем полученный текст в таблицу

		ЭтоЗапись=Ложь;

		Для н=1 По СтрЧислоСтрок(Содержимое)Цикл

			обрТекст=СтрПолучитьСтроку(Содержимое,н);

			

			Если обрТекст = "<item>" Тогда //Началась запись 

				ЗаписьСтр = Новый Структура(); ЭтоЗапись=Истина; Продолжить;  

			ИначеЕсли обрТекст = "</item>" Тогда //Закончилась запись 

				

				/////////////// ЗАПИСЬ Закончилась //////////////

				/// теперь запишем ее в базу - Справочник ДанныеRSS

				// сначала ПОИСК ДУБЛЕЙ - вдруг уже загружен 				

				Запрос = Новый Запрос;

				Запрос.Текст = 

				"ВЫБРАТЬ

				|	ДанныеRSS.Ссылка

				|ИЗ

				|	Справочник.ДанныеRSS КАК ДанныеRSS

				|ГДЕ

				|	ДанныеRSS.ИсточникRSS =ИсточникRSS

				|	И ДанныеRSS.link ПОДОБНОlink";

				

				Запрос.УстановитьПараметр("link", "%"+ЗаписьСтр.link+"%");

				Запрос.УстановитьПараметр("ИсточникRSS", ИсточникRSS);				

				РезультатЗапроса = Запрос.Выполнить().Выбрать();

				Если РезультатЗапроса.Следующий() Тогда

					// Такая запись уже есть, пока ничего не делаем

				Иначе

					//СОЗДАЕМ Новый

					НовЭлем  = Справочники.ДанныеRSS.СоздатьЭлемент();

					ЗаполнитьЗначенияСвойств(НовЭлем,ЗаписьСтр);

					НовЭлем.ИсточникRSS = ИсточникRSS;

					НовЭлем.Записать(); 					

				КонецЕсли; 				

				/////////////////////// *** /////////////////////

				

				ЭтоЗапись=Ложь; Продолжить; 

			КонецЕсли; //Данные записи

			

			Если ЭтоЗапись Тогда	

				Если Найти(обрТекст,"title>")>0 и Найти(обрТекст,"/title>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"title",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("Наименование",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"link>")>0 и Найти(обрТекст,"/link>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"link",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("link",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"description>")>0 и Найти(обрТекст,"/description>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"description",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					обрТекст=RegExp.Replace(обрТекст, ""); //Удалим все теги

					ЗаписьСтр.Вставить("desc",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"pubDate>")>0 и Найти(обрТекст,"/pubDate>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"pubDate",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("pubDate",ПреобразоватьRFC822КДате0(СокрЛП(обрТекст)));

				КонецЕсли;

				

				Если Найти(обрТекст,"enclosure")>0 Тогда					 

					обрТекст = СтрЗаменить(обрТекст,"""",""); обрТекст = СтрЗаменить(обрТекст,"<enclosure url=","");

					обрТекст = СтрЗаменить(обрТекст,"<enclosure url=",""); обрТекст = СтрЗаменить(обрТекст,"type=image/png length=/>","");

					ЗаписьСтр.Вставить("img",СокрЛП(обрТекст));

				КонецЕсли;

			КонецЕсли;	

							

		КонецЦикла;

		

	КонецЕсли;

	

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









Процедура ПроверкаRSS() Экспорт

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ИсточникиRSS.Ссылка КАК Ссылка

	|ИЗ

	|	Справочник.ИсточникиRSS КАК ИсточникиRSS

	|ГДЕ

	|	ИсточникиRSS.Использовать

	|	И ДОБАВИТЬКДАТЕ(ИсточникиRSS.ДатаПоследнегоОбновления, СЕКУНДА, ИсточникиRSS.ПериодОбновленияВСекундах) <ТекДата"; 	

	Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());

	РезультатЗапроса = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		ПрочитатьRSS(ВыборкаДетальныеЗаписи.Ссылка);

		// Запишем дату последнего обновления

		ТекОб = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

		ТекОб.ДатаПоследнегоОбновления = ТекущаяДата();

		ТекОб.Записать();

	КонецЦикла;

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



Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт

    КопияСтроки = ДатаВФорматеRFC822;

    СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда",  "","","","","","");

    Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",  "01","02","03","04","05","06","07","08","09","10","11","12");

    Для каждого КлючИЗначение Из Месяцы Цикл

        Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);

        Если Позиция > 0  Тогда

             СтруктураДаты.Месяц = КлючИЗначение.Значение;

            Прервать;

        КонецЕсли;

    КонецЦикла; 

	Состояние = 0;

	КопияСтроки = СтрЗаменить(КопияСтроки,", 1 ",", 01 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 2 ",", 02 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 3 ",", 03 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 4 ",", 04 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 5 ",", 05 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 6 ",", 06 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 7 ",", 07 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 8 ",", 08 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 9 ",", 09 ");

	Для ш=0 По СтрДлина(КопияСтроки) Цикл

        ТекущийСимвол = Сред(КопияСтроки,ш,1); //ПолучитьСимвол(КопияСтроки, ш);

        ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);

        Если ТекСимволЦифра И Состояние = 0  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 1; //начало день

        ИначеЕсли ТекСимволЦифра И Состояние = 1  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 2; //ждем год

        ИначеЕсли ТекСимволЦифра И Состояние = 2  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

            Состояние = 3; //продолжаем год

        ИначеЕсли ТекСимволЦифра И Состояние = 3  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда

               Состояние = 4; //дальше час    

        ИначеЕсли ТекСимволЦифра И Состояние = 4  Тогда

            СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 4  Тогда

            Состояние = 5; //дальше минута

        ИначеЕсли ТекСимволЦифра И Состояние = 5  Тогда

            СтруктураДаты.Минута = СтруктураДаты.Минута +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 5  Тогда

            Состояние = 6; //дальше секунда

        ИначеЕсли ТекСимволЦифра И Состояние = 6  Тогда

            СтруктураДаты.Секунда = СтруктураДаты.Секунда +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда

            Прервать;

        КонецЕсли;

    КонецЦикла;

    Попытка

        Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День

                        +СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);

    Исключение

        Результат = Неопределено;    

    КонецПопытки;

    Возврат Результат;

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



Функция ЭтоЦифра(Символ) Экспорт

     Если (КодСимвола(Символ)>=48) И (КодСимвола(Символ)<=57) Тогда Возврат Истина; Иначе Возврат ложь; КонецЕсли;

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



Функция ПолучитьСимвол(КопияСтроки, ш)

	Возврат Сред(КопияСтроки,ш,1);

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

Результат загрузки новостей RSS HelpF.pro

Кстати, как позже выяснилось, здесь уже есть статья с примером через IE и DOM: Получения новостей с RSS-канала сайта buh.ru

Категория: Работа с Интернет, Почтой (Mail), FTP

Как преобразовать дату в формат RFC 822 и обратно?

Создавая обмены данными между 1С и сайтами, часто приходится форматировать вывод даты в стандарт RCF-822 или преобразовывать его в понятную для 1С ДатуВремя.

Дата в формате RFC-822 выглядит так: Tue, 12 Aug 2013 14:15:00 +0400

Небольшая справка по стандартам:

Как дату перевести в формат RFC-822?

Код 1C v 8.2 УП

 ДатаВФорматеRFC822 = Формат(ТекущаяДата(),"Л=en_US; ДФ='ddd, dd MMM yyyy hh:mm:ss +0400    '");

Как из формата RFC-822 получить дату и время для 1С?

Код 1C v 8.2 УП

 // Функция преобразовывает дату в формате RFC822 к формату 1С - дата и время
// Параметры
//  ДатаВФорматеRFC822  – Строка вида "Thu, 10 Aug 2006 14:48:27 +0400"
// Возвращаемое значение:
//   <Дата>   –    Результат преобразования или Неопределено, если преобразование не удалось
Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт
    КопияСтроки = ДатаВФорматеRFC822;
    СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда",  "","","","","","");
    Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",  "01","02","03","04","05","06","07","08","09","10","11","12");
    Для каждого КлючИЗначение Из Месяцы Цикл
        Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);
        Если Позиция > 0  Тогда
             СтруктураДаты.Месяц = КлючИЗначение.Значение;
            Прервать;
        КонецЕсли;
    КонецЦикла; 
    Состояние = 0;
    Для ш=0 По СтрДлина(КопияСтроки) Цикл
        ТекущийСимвол = ПолучитьСимвол(КопияСтроки, ш);
        ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);
        Если ТекСимволЦифра И Состояние = 0  Тогда
            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
            Состояние = 1; //начало день
        ИначеЕсли ТекСимволЦифра И Состояние = 1  Тогда
            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
            Состояние = 2; //ждем год
        ИначеЕсли ТекСимволЦифра И Состояние = 2  Тогда
            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
            Состояние = 3; //продолжаем год
        ИначеЕсли ТекСимволЦифра И Состояние = 3  Тогда
            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда
               Состояние = 4; //дальше час    
        ИначеЕсли ТекСимволЦифра И Состояние = 4  Тогда
            СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = ":" И Состояние = 4  Тогда
            Состояние = 5; //дальше минута
        ИначеЕсли ТекСимволЦифра И Состояние = 5  Тогда
            СтруктураДаты.Минута = СтруктураДаты.Минута +  ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = ":" И Состояние = 5  Тогда
            Состояние = 6; //дальше секунда
        ИначеЕсли ТекСимволЦифра И Состояние = 6  Тогда
            СтруктураДаты.Секунда = СтруктураДаты.Секунда +  ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Попытка
        Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День
                        +СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);
    Исключение
        Результат = Неопределено;    
    КонецПопытки;
    Возврат Результат;
КонецФункции // ПреобразоватьRFC822КДате()

В процессе изучения вопроса, встретил еще несколько вариантов:

Код 1C v 8.х

  // Автор: Mavka 

// По типу: Wed, 30 Mar 2011 17:50:11 +0200 

// Я написала код, но без учета часовых поясов( 

Функция ВДатуRFC822(Дата1С, ПоправкаGMT) Экспорт

    Перем ТемпДата;

    Перем ТемпГод;

    Перем ТемпМесяц;

    Перем ТемпДень;

    Перем ДатаRFC822;

    Перем ТемпЧас;

    Перем ТемпМинута;

    Перем ТемпСекунда;

    Перем НомерДняНедели;

    Перем ТемпДеньНедели;

    Перем МесяцИмя;

    ТемпДата = Дата1С - 60 * 60 * ПоправкаGMT;

    ТемпГод = СтрЗаменить(Формат(Год(ТемпДата),"ND=4; NLZ="),Символы.НПП,"");

    ТемпМесяц = Месяц(ТемпДата);

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

         МесяцИмя = "Jan";

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

         МесяцИмя = "Feb";

     ИначеЕсли ТемпМесяц = 3 ТОгда

         МесяцИмя = "Mar";

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

         МесяцИмя = "Apr";

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

         МесяцИмя = "May";

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

         МесяцИмя = "Jun";

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

         МесяцИмя = "Jul";

     ИначеЕсли ТемпМесяц = 8 ТОгда

         МесяцИмя = "Aug";

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

         МесяцИмя = "Sep";

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

         МесяцИмя = "Oct";

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

         МесяцИмя = "Nov";

     Иначе        

         МесяцИмя = "Dec";

    КонецЕсли;

    ТемпДень = Формат(День(ТемпДата),"ND=2; NLZ=");

    НомерДняНедели = ДеньНедели(ТемпДата);

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

         ТемпДеньНедели = "Mon";

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

         ТемпДеньНедели = "Tue";

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

         ТемпДеньНедели = "Wed";

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

         ТемпДеньНедели = "Thu";

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

         ТемпДеньНедели = "Fri";

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

         ТемпДеньНедели = "Sat";

     Иначе        

         ТемпДеньНедели = "Sun";

    КонецЕсли;

    

        ТемпЧас = ?(Час(ТемпДата) = 0, "00", Формат(Час(ТемпДата),"ND=2; NLZ="));

        ТемпМинута = ?(Минута(ТемпДата) = 0, "00", Формат(Минута(ТемпДата),"ND=2; NLZ="));

        ТемпСекунда = ?(Секунда(ТемпДата) = 0, "00", Формат(Секунда(ТемпДата),"ND=2; NLZ="));

        ДатаRFC822 = ТемпДеньНедели+ ", " + ТемпДень + " " + МесяцИмя + " " + ТемпГод + " " + ТемпЧас + ":" + ТемпМинута + ":" + ТемпСекунда + " +0200";

    

    Возврат ДатаRFC822;

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

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

Коэффициент текучести кадров

Для эффективной борьбы с текучестью кадров необходимо постоянно мониторить ее коэффициент и исследовать обстановку в компании. На современном рынке существуют автоматизированные системы для кадрового учета, содержащие модули планирования работы персонала, мониторинга эффективности работы кадровой службы и состояния кадров в организации. Одной из популярных и обладающих необходимым функционалом информационных HRM-систем является «1С:Зарплата и управление персоналом 8». Система содержит отчет «Коэффициент текучести кадров», который позволяет контролировать текущий коэффициент текучести кадров как по всей организации, так и в конкретном отдельно взятом подразделении.

Данный показатель представляет собой следующее отношение, взятое за определенный период: (количество уволенных сотрудников/среднесписочная численность сотрудников) * 100 %.

За указанный в отчете период рассчитывается коэффициент текучести кадров по данным управленческого кадрового учета.

Коэффициент текучести кадров представляет собой отношение, выраженное в процентах, количества уволенных сотрудников за период к средней численности сотрудников с учетом ставок за тот же период.

Отчет предоставляет возможность рассчитать коэффициент текучести кадров в следующих разрезах:

- Строка кадрового плана

- Подразделения предприятия

- Должности предприятия

Для анализа и сравнения расчетных данных предусмотрена возможность отбора строк отчета. Присутствует возможность выбрать строки в следующих разрезах:

- Подразделения предприятия

- Должности предприятия

Схема расчета коэффициента текучести кадров

Коэффициент текучести кадров рассчитывается по следующей схеме:

1. За указанный в отчете период (как правило, год) по каждому подразделению и должности рассчитывается средняя численность сотрудников за месяц с учетом ставок сотрудников: СУММА (Ставка * количество отработанных календарных дней) / Количество календарных дней в месяце

2. Рассчитывается средняя арифметическая численности за месяцы по подразделению и должности за период.

3. Рассчитывается коэффициент текучести кадров.

3.1. За указанный в отчете период по каждому подразделению и должности рассчитывается количество высвобождаемых ставок.

3.2. Коэффициент текучести определяется по формуле: Количество высвобожденных ставок * 100 % / Средняя численность сотрудников

Категория: 1С Зарплата и Управление Персоналом 2.5

Настройка периода, интервала динамического списка Категория: Документы

Вычислить возраст человека и выразить его прописью

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

Код 1C v 8.х

 Функция РазностьМеждуДатамиВМесяцах(Дата1,Дата2)

	

	Год1 = Год(Дата1);

	Год2 = Год(Дата2);

	Месяц1 = Месяц(Дата1);

	Месяц2 = Месяц(Дата2);

	День1 = День(Дата1);

	День2 = День(Дата2);

	

	Результат = (Год1 - Год2) * 12 + Месяц1 - Месяц2;

	Если Результат < 0 Тогда Результат = 0 - Результат; КонецЕсли;

	Если ((Дата1 > Дата2) И (День1 < День2)) ИЛИ ((Дата1 < Дата2) И (День1 > День2)) Тогда

		Результат = Результат - 1;

	КонецЕсли;

	Возврат Результат;

	

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

Код 1C v 8.х

 Функция ВозрастВМесяцахИГодах(Месяцы)

	

	Структура = Новый Структура;

	Структура.Вставить("Год");

	Структура.Вставить("Месяц");

	Структура.Месяц = Месяцы % 12;

	Структура.Год = (Месяцы - Структура.Месяц) / 12;

	

	Возврат Структура;

	

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

Код 1C v 8.х

 Функция ВозрастПрописью(Структура)

	

	Строка = "";

	Если Структура.Год > 0 Тогда

		ПоследняяЦифраГода = Число(Сред(Строка(Структура.Год), СтрДлина(Строка(Структура.Год)), 1));

		Если (ПоследняяЦифраГода = 1) И (Структура.Год <> 11) Тогда Строка = Строка(Структура.Год) + " год"; КонецЕсли;

		Если (ПоследняяЦифраГода >= 2) И (ПоследняяЦифраГода <=4) И ((Структура.Год < 12) ИЛИ (Структура.Год > 14)) Тогда Строка = Строка(Структура.Год) + " года"; КонецЕсли;

		Если ((ПоследняяЦифраГода >= 5) И (ПоследняяЦифраГода <=9)) ИЛИ (ПоследняяЦифраГода = 0) Тогда Строка = Строка(Структура.Год) + " лет"; КонецЕсли;

		Если (Структура.Год >= 11) И (Структура.Год <= 14) Тогда Строка = Строка(Структура.Год) + " лет"; КонецЕсли;

	КонецЕсли;

	

	Если (Структура.Год > 0) И (Структура.Год < 3) И (Структура.Месяц > 0) Тогда

		Строка = Строка + ", ";

	КонецЕсли;

	

	Если (Структура.Месяц > 0) И (Структура.Год <= 3) Тогда

		Если Структура.Месяц = 1 Тогда Строка = Строка + "1 месяц"; КонецЕсли;

		Если (Структура.Месяц >= 2) И (Структура.Месяц <= 4) Тогда Строка = Строка + Строка(Структура.Месяц) + " месяца"; КонецЕсли;

		Если Структура.Месяц >= 5 Тогда Строка = Строка + Строка(Структура.Месяц) + " месяцев"; КонецЕсли;

	КонецЕсли;

	

	Возврат Строка;

	

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

А вот и основная:

Код 1C v 8.х

 Функция ВозрастВычислить(Возраст,Дата)

	

	Месяцы = РазностьМеждуДатамиВМесяцах(Возраст,Дата);

	ВозрастСтруктура = ВозрастВМесяцахИГодах(Месяцы);

	ВозрастПрописью = ВозрастПрописью(ВозрастСтруктура);

	

	Возврат ВозрастПрописью;

	

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

Изменения 2011.07.26: Небольшие доработки в процедуре ВозрастПрописью - теперь всё работает правильно.

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

Функция вычисляет даты начала/конца периодов за интервал в виде таблицы значений

Код 1C v 8.х

  //Начало, Конец - начало и конец периода

//Периодичность - строка "День", "Месяц", "Неделя", "Год", "Квартал"

//Возвращает таблицу значений с колонками:

//	Начало - начало интервала

//	Конец - конец интервала

//	Номер - номер интервала (начиная с единицы)

Функция обПериодыЗаИнтервал(Начало, Конец, Периодичность="День", ВыравниваниеПоПериоду=истина)

	Перем Р, Номер, ТекПериод, СледПериод;

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

	Р.Колонки.Добавить("Начало");

	Р.Колонки.Добавить("Конец");

	Р.Колонки.Добавить("Номер");

	

	ТекПериод=Начало;

	Номер=1;

	Пока истина Цикл

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

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоДня(ТекПериод);

				СледПериод=КонецДня(ТекПериод);

			Иначе

				СледПериод=обДобавитьДни(ТекПериод, 1);

			КонецЕсли;

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

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоМесяца(ТекПериод);

				СледПериод=КонецМесяца(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 1);

			КонецЕсли;

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

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоГода(ТекПериод);

				СледПериод=КонецГода(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 12);

			КонецЕсли;

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

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоКвартала(ТекПериод);

				СледПериод=КонецКвартала(ТекПериод);

			Иначе

				СледПериод=обДобавитьМесяцы(ТекПериод, 3);

			КонецЕсли;

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

			Если ВыравниваниеПоПериоду Тогда

				ТекПериод=НачалоНедели(ТекПериод);

				СледПериод=КонецНедели(ТекПериод);

			Иначе

				СледПериод=обДобавитьДни(ТекПериод, 7);

			КонецЕсли;

		Иначе

			ВызватьИсключение "Неизвестная периодичность времени:"+Периодичность;

		КонецЕсли;

		Если ТекПериод>Конец И НЕ Номер=1 Тогда

			Прервать;

		КонецЕсли;

		

		Стр=Р.Добавить();

		Стр.Начало=ТекПериод;

		Стр.Конец=СледПериод;

		Стр.Номер=Номер;

		ТекПериод=СледПериод+1; //Переходим на следующий период (добавляем одну секунду)

		Номер=Номер+1;

	КонецЦикла;

	Возврат Р;

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

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

Как вычислить разницу между двумя датами в месяцах Категория: Работа с Датами (Временем)