// Процедура СтрокаВДату преобразует строку в дату по шаблону форматной строки

//

// Параметры

//  Строка		- строка, содержащая дату,

//  ФорматДаты	- форматная строка вида:

// [dd MM yy]

// [yy-MM-dd HH:mm]

// [dd MM yy HH mm ss]

// [dd MM yyyy]

// [MM dd, yyyy, HH:mm]

// [dd.MM.yy]

// [MM, dd, yyyy]

// [yyyyMMdd]

// [HH-mm-ss, dd-MM-yy]

// [dd]

// [dd MM HH:mm:ss yyyy]

// [HH:mm:ss]

// [HH:mm]

// [yyyy-MM-dd HH:mm:ss]

// [yyyy-MM-dd]

// [yyyy/MM/dd]

// [dd/MM/yy]

// [MM dd yyyy]

// [yyyy-MM]

// [yyyy]

// [MM, dd, yyyy]

// [dd-MM-yyyy]

// [ddMMyyyy]

//

Функция СтрокаВДату(Знач Строка, Знач ФорматДаты) Экспорт

	Ч = Новый Соответствие; 

	Для ё = 1 По СтрДлина(ФорматДаты) + 6 Цикл 

	    Ч[Сред(ФорматДаты + "dMyHms", ё, 1)] = 0

	КонецЦикла; 

	Для ё = 1 По СтрДлина(ФорматДаты) Цикл 

	    Ч[Сред(ФорматДаты, ё, 1)] = 10 * Ч[Сред(ФорматДаты, ё, 1)] + Найти("123456789", Сред(Строка, ё, 1));

	КонецЦикла; 

	Ч["y"] = Ч["y"] + ?(0 < Ч["y"] И Ч["y"] < 50, 2000, ?(0 < Ч["y"] И Ч["y"] < 100, 1900, 0));

	Возврат Дата(Макс(Ч["y"], 1), Макс(Ч["M"],1), Макс(Ч["d"],1), Ч["H"], Ч["m"], Ч["s"]);

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

 // Функция переводит дату в формате 1С в международный текстовый формат вида 'YYYYMMDD hh:mm:ss'

// Параметры:  Дата1С - Дата   - Дата в формате 1С

// Возвращаемое значение: Строка - Дата в международном текстовом формате

//

Функция ДатаВСтроку(Дата1С)

                Результат = Формат(Год(Дата1С),"ЧГ=0") + ?(СтрДлина(Строка(Месяц(Дата1С))) < 2,"0" + Строка(Месяц(Дата1С)) , Строка(Месяц(Дата1С)))

                + ?(СтрДлина(Строка(День(Дата1С))) < 2, "0" + Строка(День(Дата1С)), Строка(День(Дата1С))) + " "

                + ?(СтрДлина(Строка(Час(Дата1С))) < 2, "0" + Строка(Час(Дата1С)), Строка(Час(Дата1С))) + ":" 

                + ?(СтрДлина(Строка(Минута(Дата1С))) < 2, "0" + Строка(Минута(Дата1С)), Строка(Минута(Дата1С))) + ":"

                + ?(СтрДлина(Строка(Секунда(Дата1С))) <2, "0" + Строка(Секунда(Дата1С)), Строка(Секунда(Дата1С)));

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

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



// Функция переводит строку в дату с указанным форматом

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

//            Строка                 - Строка              - Дата в виде строки

//            ФорматДаты    - Строка              - Формат даты, в который переводится строка

// Возвращаемое значение: Дата      - Дата в указанном формате

//

Функция ПривестиСтрокуКДате(Строка, ФорматДаты="дмг")

                Список = Новый Массив;

                

                Подстрока = "";

                Позиция = 1;

                ДлинаСтроки = СтрДлина(Строка) + 1;

                

                Пока Позиция <= ДлинаСтроки цикл

                               Символ = Сред(Строка, Позиция, 1);

                               Если (Символ >= "0") И (Символ <= "9") тогда

                                               Подстрока = Подстрока + Символ;

                               ИначеЕсли Подстрока <> "" тогда

                                               Список.Добавить(Число(Подстрока));

                                               Подстрока = "";

                               КонецЕсли;

                               Позиция = Позиция + 1;

                КонецЦикла;

                

                Если Список.Количество() < 3 тогда

                               Возврат Неопределено;

                КонецЕсли;

                

                Если ФорматДаты="дмг" тогда

                               День = Список[0]; Месяц = Список[1]; Год = Список[2];

                ИначеЕсли ФорматДаты="мдг" тогда

                               День = Список[1]; Месяц = Список[0]; Год = Список[2];

                ИначеЕсли ФорматДаты="гмд" тогда

                               День = Список[2]; Месяц = Список[1]; Год = Список[0];

                Иначе

                               День = 1; Месяц = 1; Год = 1;

                КонецЕсли;

                               

                Час = 0; Минута = 0; Секунда = 0;

                Если Список.Количество() >= 5 тогда

                               Час                        = Список[3];

                               Минута               = Список[4];

                               Секунда = ?(Список.Количество() >= 6, Список[5], 0);

                КонецЕсли;

                

                Попытка

                               Результат = Дата(Год, Месяц, День, Час, Минута, Секунда);

                Исключение

                               Возврат Неопределено;

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

                

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

                

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

 

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

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

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

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

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

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

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

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

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

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

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

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

	Иначе

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

	КонецЕсли;

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

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

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

	КонецЕсли;

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

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



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

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

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