Merge pull request #8 from oscript-library/nixel2007-patch-1

Исправлена запись года, меньше чем 1000

Author: EvilBeaver

src/json.os

@@ -1551,13 +1551,22 @@
 	Возврат С;
 КонецФункции
 
+Функция ФорматЧетырехзначноеЧисло(ЗначениеЧисло)
+	С = Формат(ЗначениеЧисло, "ЧГ=");
+	Пока СтрДлина(С) < 4 Цикл
+		С = "0" + С;
+	КонецЦикла;
+
+	Возврат С;
+КонецФункции
+
 Функция ДатаJSON(Знач Дата)
 
 	Если Не ЗначениеЗаполнено(Дата) Тогда
 		Возврат "";
 	КонецЕсли;
 
-	Возврат "" + Год(Дата) + "-" + ФорматДвузначноеЧисло(Месяц(Дата)) + "-" + ФорматДвузначноеЧисло(День(Дата)) + "T"
+	Возврат "" + ФорматЧетырехзначноеЧисло(Год(Дата)) + "-" + ФорматДвузначноеЧисло(Месяц(Дата)) + "-" + ФорматДвузначноеЧисло(День(Дата)) + "T"
 			+ ФорматДвузначноеЧисло(Час(Дата)) + ":" + ФорматДвузначноеЧисло(Минута(Дата)) + ":" + ФорматДвузначноеЧисло(Секунда(Дата));
 
 КонецФункции