|
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
|
Вот что-то подобное, но опять перебором
|
|
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) не много итераций ?
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший