Помогите решить задачку по 1С

• • #1
  • 28.07.2018 02:38
  0
  Григорьев Михаил Владимирович

  Приватное сообщение
  Всем привет. Помогите пожалуйста решить задачу по 1С. Никак не могу написать код... Вот задание; Введите интерактивно два любых целых числа, проверьте, чтобы значение числа были от 1 до 12, и первое было меньше второго, иначе не выполняйте код (сообщите об этом пользователю). Выведите месяцы (в формате ММММ) по порядку начиная с номера первого числа и заканчивая номером второго числа. Буду благодарен даже за подсказку.
• • #2
  • 28.07.2018 12:48
  0
  Николай

  Приватное сообщение
  Опубликуйте проект, Вам за символическую сумму напишут код.
• • #3
  • 28.07.2018 13:51
  0
  Nataly

  Приватное сообщение
  напишите грамотно договор с нда на три миллиона и код можно бесплатно получить ?
• • #4
  • 28.07.2018 14:12
  • Отредактировано: 28.07.2018 14:19:54
  0
  Олег

  Приватное сообщение
  Вводим на форму два реквизита типа число Допустим, А и Б. Также размещаем команду "ВывестиМесяцы", в обработчике НаКлиенте пишем:
  
  Если А >= 1 И Б <= 12 И А < Б Тогда
  
  Для Счетчик = А ПО Б Цикл
  
  Если Счетчик = 1 Тогда Месяц = "Январь";
  ИначеЕсли Счетчик = 2 Тогда Месяц = "Февраль";
  ИначеЕсли Счетчик = 3 Тогда Месяц = "Март";
  ИначеЕсли Счетчик = 4 Тогда Месяц = "Апрель";
  ИначеЕсли Счетчик = 5 Тогда Месяц = "Май";
  ИначеЕсли Счетчик = 6 Тогда Месяц = "Июнь";
  ИначеЕсли Счетчик = 7 Тогда Месяц = "Июль";
  ИначеЕсли Счетчик = 8 Тогда Месяц = "Август";
  ИначеЕсли Счетчик = 9 Тогда Месяц = "Сентябрь";
  ИначеЕсли Счетчик = 10 Тогда Месяц = "Октябрь";
  ИначеЕсли Счетчик = 11 Тогда Месяц = "Ноябрь";
  Иначе Месяц = "Декабрь";
  КонецЕсли;
  
  Сообщить(Месяц);
  
  КонецЦикла;
  Иначе
  Сообщить("Некорректно введён диапазон номеров месяцев");
  КонецЕсли;
• • #5
  • 28.07.2018 14:32
  0
  Артур Салаватович

  Приватное сообщение
  Олег

  Если Счетчик = 1 Тогда Месяц = "Январь";
  ИначеЕсли Счетчик = 2 Тогда Месяц = "Февраль";
  ИначеЕсли Счетчик = 3 Тогда Месяц = "Март";
  ИначеЕсли Счетчик = 4 Тогда Месяц = "Апрель";
  ИначеЕсли Счетчик = 5 Тогда Месяц = "Май";
  ИначеЕсли Счетчик = 6 Тогда Месяц = "Июнь";
  ИначеЕсли Счетчик = 7 Тогда Месяц = "Июль";
  ИначеЕсли Счетчик = 8 Тогда Месяц = "Август";
  ИначеЕсли Счетчик = 9 Тогда Месяц = "Сентябрь";
  ИначеЕсли Счетчик = 10 Тогда Месяц = "Октябрь";
  ИначеЕсли Счетчик = 11 Тогда Месяц = "Ноябрь";
  Иначе Месяц = "Декабрь";
  КонецЕсли;

  
  
  Вместо всего этого можно просто Формат(Дата(2018, Счётчик, 01), "ДФ='ММММ'");
• • #6
  • 28.07.2018 14:35
  • Отредактировано: 28.07.2018 14:36:29
  0
  Олег

  Приватное сообщение
  Человеку нужен был простой код, который он сможет осмыслить )))
  Момент алгоритмики.
  К тому же этот костыль будет работать и в выражениях языка запросов и СКД (ВЫБОР-КОГДА-КОНЕЦ).
• • #7
  • 28.07.2018 15:03
  0
  Нина

  Приватное сообщение
  Олег

  
  Момент алгоритмики.
  

  
  с этой т.з. - да, но не с т.з. производительности, что важно работодателю.
• • #8
  • 28.07.2018 15:13
  0
  Олег

  Приватное сообщение
  Если человеку нужно предоставить то, что важно работодателю, то ему надо не здесь вопросы задавать, а вдумчиво курить литературу, синтакс-помощник и практические примеры.