Переход на либу datetime

Author: khorevaa

packagedef

@@ -18,6 +18,7 @@
         .ЗависитОт("delegate", "0.2.0")
         .ЗависитОт("reflector", "0.5.1")
         .ЗависитОт("fluent", "0.3.1")
+        .ЗависитОт("datetime", "0.1.0")
         .ЗависитОт("asserts")
         //.ЗависитОт("1bdd") // Необходимо установил для тестирования
         //.ЗависитОт("1testrunner") // Необходимо установил для тестирования

src/core/Классы/internal/types/Классы/ТипДатаВремя.os

@@ -1,3 +1,4 @@
+#Использовать datetime
 
 Перем ОписаниеОшибкиКласса;
 Перем ФорматДаты;
@@ -34,7 +35,9 @@
 Функция УстановитьЗначение(Знач ВходящаяСтрока, Значение) Экспорт
 
 	Попытка
-		Значение = РаботаСДатой.СтрокаВДату(ВходящаяСтрока, ФорматДаты);
+		ПроцессорДаты = Новый ДатаВремя();
+
+		Значение = ПроцессорДаты.СтрокаВДату(ВходящаяСтрока, ФорматДаты);
 	Исключение
 		Значение = Дата("20010101");
 		ОписаниеОшибкиКласса = ОписаниеОшибки();

src/core/Классы/internal/types/Классы/ТипМассивДат.os

@@ -1,3 +1,4 @@
+#Использовать datetime
 
 Перем ОписаниеОшибкиКласса;
 Перем ФорматДаты;
@@ -34,7 +35,9 @@
 Функция УстановитьЗначение(Знач ВходящееЗначение, Значение) Экспорт
 
 	Попытка
-		ВходящееЗначение = РаботаСДатой.СтрокаВДату(ВходящееЗначение, ФорматДаты);
+		ПроцессорДаты = Новый ДатаВремя();
+
+		ВходящееЗначение = ПроцессорДаты.СтрокаВДату(ВходящееЗначение, ФорматДаты);
 		Значение.Добавить(ВходящееЗначение);
 	Исключение
 		Значение = Дата("20010101");