Имя: Пароль:
1C
1C 7.7
v7: Как преобразовать дату ?
,
0 Koliaff
 
12.01.12
21:35
Есть такое представление "29" декабря 2011 г. Каким образом преобразовать его в "29.12.2011" чтобы можно было его подставить в реквизит ДатаДок документа ?
1 zak555
 
12.01.12
21:36
где дата находится ?
2 Rie
 
12.01.12
21:36
(0) Распарсить и собрать дату.
Стандартной функции нет.
3 andrewks
 
12.01.12
21:37
(0) сделай через цикл, брутфорсом! :)
4 zak555
 
12.01.12
21:41
> "29" декабря 2011 г.

29 в кавычках ?
5 Koliaff
 
12.01.12
21:42
Может кто-нибудь уже делал подобное ? Что-то совсем не хочется распарсивать .... Уж очень много "если" "тогда" "иначе" ...
(zak555) Да, в кавычках, первоначальная дата берется из Excel таблицы
6 Rie
 
12.01.12
21:42
(5) Сколько?
7 andrewks
 
12.01.12
21:44
напишу функцию за 500 рэ
8 Koliaff
 
12.01.12
21:44
(Rie) массив из месяцев, убрать ковычки из числа, не красиво как-то
9 Koliaff
 
12.01.12
21:50
Вот что-то подобное, но опять перебором http://www.odines.ru/thread452.html
10 Rie
 
12.01.12
21:50
(8) Считаешь что массив - некрасиво? Используй строку.
11 Rie
 
12.01.12
21:51
(9) Месяц = Найти("янвфевмарапрмайиюниюлавгсеноктноядек",Лев(ВыделенныйМесяц,3))/3;
12 Rie
 
12.01.12
21:52
+(11) Тьфу,
Месяц = (Найти("янвфевмарапрмайиюниюлавгсеноктноядек",Лев(ВыделенныйМесяц,3))+2)/3;
13 zak555
 
12.01.12
21:52
Функция РазложитьВзадИЗстрокиВдату(Строчка)
  СЗ = глРазложить (СокрЛП(Строчка));
  День = СЗ.ПолучитьЗначение(1);
  Год  = СЗ.ПолучитьЗначение(3);

  //дальше месяца в СЗ и поиск
  + проверить есть кавычки или нет

КонецФункции
14 SnarkHunter
 
12.01.12
21:53
Уже 20 минут трындёж, давно можно было написать самому...
15 zak555
 
12.01.12
21:53
(12) не взлетит

например, не пишется : "29" май 2011
16 Rie
 
12.01.12
21:55
(15) Ну да, "мая"
17 Koliaff
 
12.01.12
21:55
Всем спасибо, вопрос закрыт ;)
18 AntiBuh
 
12.01.12
22:22
Для сч = '01.01.01' По '21.12.2012' Цикл
   Если Формат(сч, "ДДДММММГГГГ") = СокрЛП(ДатаБуквами) Тогда
       Сообщить(ДатаБуквами+ " это "+ Формат(сч,"ДДММГГ"));
   Иначе
       Сообщить( Формат(сч, "ДДДММММГГГГ"));
   КонецЕсли;
КонецЦикла
19 1Сергей
 
13.01.12
07:23
(18) бгг :)
20 dk
 
13.01.12
07:36
(18) прикольно, но там еще кавычки есть )
21 zak555
 
13.01.12
09:21
(18) не много итераций ?
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс