Как убрать пробел из даты?
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 7 из 7
  1. #1
    Гость форума

    Регистрация
    28.06.2018
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Как убрать пробел из даты?

    Наши бухи в текущем месяце выставляют счета за прошлый месяц. Поэтому в печатной форме в Январе 2019 должно быть декабрь 2018.
    С выводом месяца проблем нет. Но вот с годом ситуация иная. При выводе появляется пробел после двойки и в итоге в печатной форме выводится "...за декабрь 2 018". Это происходит только в январе, когда нужно печатать за декабрь и отнимать один год

    кусок кода:
    Код:
    Если 
    
    Формат(Дата1, "ДФ=ММММ") = "Январь" Тогда       
    Год_1 = Формат(Дата1, "ДФ=гггг")-1;       
    Иначе Год_1 = Формат(Дата1, "ДФ=гггг");
    
    КонецЕсли;

    Как убрать этот пробел? Помогите, люди добрые

  2. #2
    Спец PRO +

    Регистрация
    18.07.2018
    Сообщений
    575
    Сказал(а) спасибо
    326
    Поблагодарили 3602 раз(а) в 617 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Цитата Сообщение от Willi Wonka Посмотреть сообщение
    Наши бухи в текущем месяце выставляют счета за прошлый месяц. Поэтому в печатной форме в Январе 2019 должно быть декабрь 2018.
    С выводом месяца проблем нет. Но вот с годом ситуация иная. При выводе появляется пробел после двойки и в итоге в печатной форме выводится "...за декабрь 2 018". Это происходит только в январе, когда нужно печатать за декабрь и отнимать один год

    кусок кода:
    Код:
    Если 
    
    Формат(Дата1, "ДФ=ММММ") = "Январь" Тогда       
    Год_1 = Формат(Дата1, "ДФ=гггг")-1;       
    Иначе Год_1 = Формат(Дата1, "ДФ=гггг");
    
    КонецЕсли;

    Как убрать этот пробел? Помогите, люди добрые
    //КАК УБРАТЬ ПРОБЕЛ В ЧИСЛЕ 12 600,00?
    //Важно понимать, что здесь используется не символ пробела, а так называемый, «неразрывный пробел»,
    //поэтому такая, к примеру, конструкция:

    //СтрЗаменить(ПеременнаяЧис� �о," ","");
    //работать не будет.

    //Есть два варианта решения проблемы, либо указать для замены вместо пробела Символы.НПП,
    //либо используя функцию Формат().

    //1)
    СтрЗаменить(ПеременнаяЧис� �о,Символы.НПП,""); // 1-й вариант
    //2)
    Формат(ПеременнаяЧисло,"ЧГ= "); // 2-й вариант

    //По материалам сайта: http://www.coder1cv8.narod.ru/Publication4.html

  3. #3
    Гость форума

    Регистрация
    15.11.2009
    Сообщений
    3
    Сказал(а) спасибо
    43
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Переменная Год_1 имеет тип число, в её стандартном представлении используется неразрывный пробел.
    Чтобы его "представить" корректно, можно сделать, например, так:
    ГодСтрокой = Формат(Год_1, "ЧГ=0");

    Но вообще, приведенный вами кусок кода не поддается никакой критике.
    Не нужно переводить ничего в строку. Можно оперировать датами.
    Если НачалоМесяца(Документ.Дата ) = Дата(2019,1,1) Тогда
    Результат = Дата(2018,12,31);
    Иначе
    Результат = Документ.Дата;
    КонецЕсли;

  4. #4
    Просто юзер

    Регистрация
    01.12.2009
    Сообщений
    29
    Сказал(а) спасибо
    47
    Поблагодарили 33 раз(а) в 13 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Если Дата1<=Дата("20193101") Тогда
    Дата1 = Формат(Дата1,"ММММ ГГГГ")
    КонецЕсли
    Попробуй

  5. #5
    Гость форума

    Регистрация
    11.12.2016
    Сообщений
    1
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Поддерживаю: нужно оперировать датами, а уже полученную дату - форматируем как нам нужно.

    Мой вариант:
    ДатаПечати = ?(Месяц(Дата1)=1, ДобавитьМесяц(Дата1,-1), Дата1);
    ДатаПечати = Формат(ДатаПечати, "ДЛФ=DD");

  6. #6
    Гость форума

    Регистрация
    15.11.2009
    Сообщений
    3
    Сказал(а) спасибо
    43
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Цитата Сообщение от gGorus Посмотреть сообщение
    Поддерживаю: нужно оперировать датами, а уже полученную дату - форматируем как нам нужно.

    Мой вариант:
    ДатаПечати = ?(Месяц(Дата1)=1, ДобавитьМесяц(Дата1,-1), Дата1);
    ДатаПечати = Формат(ДатаПечати, "ДЛФ=DD");
    Этот вариант вообще супер - коротко и красиво.

  7. #7
    Просто юзер

    Регистрация
    01.12.2009
    Сообщений
    29
    Сказал(а) спасибо
    47
    Поблагодарили 33 раз(а) в 13 сообщениях

    По умолчанию Re: Как убрать пробел из даты?

    Цитата Сообщение от pipapalamm Посмотреть сообщение
    Этот вариант вообще супер - коротко и красиво.
    в этом варианте только проверка на месяц. Т.е. в 2020 году будет применяться это же правило

Похожие темы

  1. Формат Даты в запросе
    от Mexxe в разделе Конфигурирование, программирование 1С - Предприятие
    Ответов: 6
    Последнее сообщение: 10.02.2017, 19:56
  2. Как найти регулировку рабочей даты
    от тэсса в разделе Установка и администрирование 1С - Предприятие
    Ответов: 27
    Последнее сообщение: 03.12.2014, 15:59

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •