Фикс ДатаИзСтрокиRFC7231

src/CommonModules/КоннекторHTTP/Ext/Module.bsl

@@ -17,7 +17,7 @@
 //
 // URL:    https://github.com/vbondarevsky/Connector
 // e-mail: [email protected]
-// Версия: 2.1.2
+// Версия: 2.1.3
 //
 // Требования: платформа 1С версии 8.3.10 и выше
 
@@ -866,30 +866,33 @@
 
 Функция ДатаИзСтроки(Знач Строка) Экспорт
 
-	ОписаниеТипа = Новый ОписаниеТипов("Дата");
+	КвалификаторДаты = Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя);
+	ОписаниеТипа = Новый ОписаниеТипов("Дата", Неопределено, Неопределено, КвалификаторДаты);
 	Возврат ОписаниеТипа.ПривестиЗначение(Строка);
 
 КонецФункции
 
 Функция ДатаИзСтрокиRFC7231(Знач Строка) Экспорт
 
-	Строка = СокрЛП(Строка);
-
+	Разделители = ",-:/\.";
+	Для Индекс = 1 По СтрДлина(Разделители) Цикл
+		Разделитель = Сред(Разделители, Индекс, 1);
+		Строка = СтрЗаменить(Строка, Разделитель, " ");
+	КонецЦикла;
+	Строка = СтрЗаменить(Строка, "  ", " ");
+	СоставляющиеДаты = СтрРазделить(Строка, " ");
+	МесяцСтр = СоставляющиеДаты[2];
+
 	Месяцы = СтрРазделить("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", ",");
-	Месяц = Месяцы.Найти(Сред(Строка, 9, 3));
+	Месяц = Месяцы.Найти(МесяцСтр);
 	Если Месяц = Неопределено Тогда
-		Возврат Неопределено;
+		Возврат '00010101';
 	КонецЕсли;
 
-	Месяц = Формат(Месяц + 1, "ЧЦ=2; ЧВН=;"); 
-	День = Сред(Строка, 6, 2);
-	Год = Сред(Строка, 13, 4); 
-
-	Час = Сред(Строка, 18, 2); 
-	Минута = Сред(Строка, 21, 2); 
-	Секунда = Сред(Строка, 24, 2); 
+	Дата = СоставляющиеДаты[3] + Формат(Месяц + 1, "ЧЦ=2; ЧВН=;") + СоставляющиеДаты[1];
+	Время = СоставляющиеДаты[4] + СоставляющиеДаты[5] + СоставляющиеДаты[6];
 
-	Возврат ДатаИзСтроки(Год + Месяц + День + Час + Минута + Секунда);
+	Возврат ДатаИзСтроки(Дата + Время);
 
 КонецФункции