Имя: Пароль:
1C
1С v8
Дату формата 2013-01-01T00:00:00 превратить в нормальную
,
0 1CVERYGOOD
 
18.10.13
07:33
Подскажите как это можно сделать ?
1 1CVERYGOOD
 
18.10.13
07:33
Пишу так:
Дата(СтрЗаменить(Лев(ДокДата,10),"-",""))
2 Лодырь
 
18.10.13
07:41
&НаКлиенте
Функция ПреобразоватьДату(СтрокаДаты)
    
        СтрокаДаты = СтрЗаменить(СтрокаДаты,"T","");
    СтрокаДаты = СтрЗаменить(СтрокаДаты,"-","");
    СтрокаДаты = СтрЗаменить(СтрокаДаты,":","");
    Возврат Дата(СтрокаДаты);
    
КонецФункции
3 Defender aka LINN
 
18.10.13
08:17
XMLЗначение(Тип("Дата"), "2013-01-01T00:00:00")
4 Defender aka LINN
 
18.10.13
08:17
Извращенцы, на...
5 vde69
 
модератор
18.10.13
08:22
мДата = ПривестиКДате ("2013-01-01T00:00:00", "yy-MM-dd");

Функция ПривестиКДате (ДатаСтрокой, Формат)
    
    сГод = "";
    сМесяц = "";
    сДень = "";
    
    сДлина = стрДлина(Формат);
    Для сч = 1 по сДлина Цикл
        СимволФормата = Сред(Формат, сч, 1);
        Если СимволФормата = "d" Тогда
            сДень = сДень + Сред(ДатаСтрокой, сч, 1);
        ИначеЕсли СимволФормата = "M" Тогда
            сМесяц = сМесяц + Сред(ДатаСтрокой, сч, 1);
        ИначеЕсли СимволФормата = "y" Тогда
            сГод = сГод + Сред(ДатаСтрокой, сч, 1);
        КонецЕсли;
    КонецЦикла;
    
    Попытка
        Результат = Дата(Число(сГод), Число(сМесяц), Число(сДень));
    Исключение
        Результат = Неопределено;
    КонецПопытки;
    
    Возврат Результат;
КонецФункции
6 Defender aka LINN
 
18.10.13
08:23
О_О
7 Лодырь
 
18.10.13
08:24
(4) Работаю с несколькими вебсервисами, так эти сволочи умудряются в каких только видах дату время не выдавать. Вариант как в (3) не проканает, а старая добрая замена символов пашет только в путь.
8 Fragster
 
модератор
18.10.13
08:25
а если фабрике XDTO скормить схему XML - то даты и числа сразу будут датами и числами
9 vde69
 
модератор
18.10.13
08:25
(6) это из парсера тендерных плащадок, там ворматы самые извращенные встречаются :)

там в настройках задаю маски и по маскам уже получаю даты :)
10 vde69
 
модератор
18.10.13
08:27
(5)+
мДата = ПривестиКДате ("2013-01-01T00:00:00", "yyyy-MM-dd");
11 Defender aka LINN
 
18.10.13
08:27
(7) "Вариант как в (3) не проканает" - Ну конечно, я же не проверяю код, а сразу на Мисту пишу.
Вопрос был про конкретный формат. Конкретно этот формат - это запись даты 1С в XML