- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
Если ДатаЧисло(НачДата) < 10 Тогда
ЧислоДата = "0"+ДатаЧисло(НачДата);
Иначе
ЧислоДата = ДатаЧисло(НачДата);
КонецЕсли;
Если ДатаМесяц(НачДата) < 10 Тогда
МесяцДата = "0"+ДатаМесяц(НачДата);
Иначе
МесяцДата = ДатаМесяц(НачДата);
КонецЕсли;
Если ДатаЧисло(КонДата) < 10 Тогда
КонЧислоДата = "0"+ДатаЧисло(КонДата);
Иначе
КонЧислоДата = ДатаЧисло(КонДата);
КонецЕсли;
Если ДатаМесяц(КонДата) < 10 Тогда
КонМесяцДата = "0"+ДатаМесяц(КонДата);
Иначе
КонМесяцДата = ДатаМесяц(КонДата);
КонецЕсли;
/// ... где-то ниже
ЧислоДата+"/"+МесяцДата+"/"+ДатаГод(НачДата)+";"+КонЧислоДата+"/"+КонМесяцДата+"/"+ДатаГод(КонДата)
Follow us!
переведенными на русский язык - что может быть кошмарнее?
меня убивает сам вид кода make me unseen it!!
если кого тошнит от текстовости бейсика и особенно паскаля, то 1С вообще жесть,
вот это особенно доставляет
Для й = 1 По КонДата-НачДата Цикл
даже i перевели ))
мне сам язык доставляет
Кошмар уже обсуждали (http://govnokod.ru/3408) — препроцессор с хинди для DJGPP (даже с досовскими шрифтами). Так что вид кода — на любителя.
во многих языках их юзать можно
RegExp = Новый COMОбъект("VBScript.RegExp");
ну кто б сомевался
повторю сказаное выше
>>>ублюдочная вариация на тему бейсика
это итальянский модельер? =)
и не надоедает им кодировку дергать?
Потому что рыба-сом там непричем)
Самое смешное, что на 1С можно писать на английском, но все всё равно пишут на русском. Наверное 1С программисты просто не знают других языков)
это печально
още параллельно на них
а потом его просто импотить в 1с
аватар у Вас классный! Очень подходит виду деятельности
ну если они такое говно пишут, какие регэкспы?
тем более програмисты 1С не уважают символы, так что регэспы для 1С - должны задаватся русскими словами
типа так
>>>Выполнений: 1 000 Функции из Бух 1.6 и КОРП 2.0 время: 625 мс
>>>Выполнений: 1 000 функций на RegExp время: 1 000 мс
>>>Выполнений: 1 000 функций на VBScript время: 407 мс
а говорили что бейсик медленный, пойти чтоле их потроллить вопросами типа:
А не взападло английские переменные использовать типа RegExp
или привести им тесты скорости любого нормального языка
БУГАГА на форуме 1Сников даже +1 и -1 выглядят так
Рекомендую
Не тратить время
*ROFL*
Функция РазложитьСтрокуВМассивЯва(Строка, Разделитель = ",") Экспорт
резМассив.Очистить();
резМассив = Script.eval("var str=""" + Строка + """; array1 = str.split(""" + Разделитель + """); for (i = 0; i < array1.length; i++) { myarray.Add(array1[i]); }; myarray; "); Возврат резМассив;
КонецФункции
короче они экспортят функции из СКРИПТОВЫХ языков (ибо 1С - говно и в нем нет даже базовых вещей),которые по определению слоу, да еще и юзают eval )) причем львиная доля ресурсов уходит на линковку типа Новый COMОбъект или создание среды для выполнения js
а потом в своими читерскими тестами доказывают, что Бух 1.6 и КОРП 2.0 быстрее )))
они бы еще яву в VMware запустили и через web-сервис на канале с огромным latency считали чего-то там, а потом сказали что родные функции Бух 1.6 и КОРП 2.0- быстрее
кстати этот говнокод в стиле 1С
http://govnokod.ru/3487
1С кодеры - концентрированный песец
но и адекватных людей, которых тошнит от сего поделия
чесно говоря я боюсь там регатся ибо могу деградировать
если они даже +1 и -1 так многословно называют, то видно 1С сильно въелся в мозги
кончи сло дата
> ЗначениеИзСтрокиВнутр
Ой ржака
ДатаСтр = Строка(Формат(НачДата, "ДDDMMYYYY"));
ДатаСтр = СтрЗаменить(ДатаСтр, ".", "/");
когда достаточно
ДатаСтр = Формат(НачДата, "ДФ=dd/MM/yyyy");
Тем более что указанная форматная строка все равно неправильная.