Как получить название месяца по номеру ? :)
По теме из базы знаний
- Как красиво и профессионально вести (оформлять) разработку в 1С
- Методология i3 как основа новой экономики. Индустрия 5.0
- Глава 2. Как я написал (собрал с инфостарта) свой парсер сайта 1С Releases
- Как читать чужой код? Часть 3. Разбор и доработка запросов
- Распознавание номеров автомашин с ip - камер, видео, фото
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Для СчМ = 1 по 12 Цикл
М = Формат(Дата("0002" + Формат(счМ,"ЧЦ=2; ЧВН=") + "01"),"ДФ=ММММ");
КонецЦикла
Дата начинается с 0002, т.к. для января с 0001 будет пустая дата. Можно любой другой год указывать. Я это по-быстрому накидал, когда нужно было в контекстное меню добавить названия месяцев без привязки к дате.
(8) axelerleo,
Немного переделал твой код.. получилось получаю все месяцы исходя ихз текущего года. Используя текущую дату в качестве строки для обработки формата.
Немного переделал твой код.. получилось получаю все месяцы исходя ихз текущего года. Используя текущую дату в качестве строки для обработки формата.
Для н =1 по 12 Цикл
ТекущийГод = СтрЗаменить(Строка(Год(ТекущаяДата())), " ", "");
Если СтрДлина(н)=1 Тогда
ПорядковыйМесяц = "0"+н;
Иначе
ПорядковыйМесяц = н;
КонецЕсли;
Если СтрДлина(День(ТекущаяДата())) = 1 Тогда
ТекущийДень = "0"+День(ТекущаяДата());
Иначе
ТекущийДень = День(ТекущаяДата());
КонецЕсли;
Данные = Формат(Дата(ТекущийГод + ПорядковыйМесяц + ТекущийДень),"ДФ=ММММ") + " " + ТекущийГод;
ЭлементыФормы.Месяц.СписокВыбора.Добавить(Данные);
КонецЦикла;
Показать
/// Как инициализировать дату отдельными компонентами в 1с 8.3, 8.2
К примеру зная отдельно: Год, Месяц и День
Дата = Дата(2013, 07, 24); // 24.07.2013
К примеру зная отдельно: Год, Месяц и День
ТекущийГод = Год(ТекущаяДата());
ТекущийМесяц = Месяц(ТекущаяДата());
ТекущийДень = День(ТекущаяДата());
Дата = Дата(ТекущийГод, ТекущийМесяц, ТекущийДень);
Задачка простенькая.. но просто интересно
Чтобы не писать:
Если НомерМесяца = 1 Тогда Возврат "Январь";
Иначе Если НомерМесяца = 2 Тогда Возврат "февраль";
...
КонецЕсли;
Можно как-то тоже самое получить системно ?
ЗЫ
Через Формат(Дата, " ") сделать не получается... Мне надо чтобы месяц был в именительном падеже :)
Подскажите можно как-то это сделать пользуясь системными функциями ? :)
Чтобы не писать:
Если НомерМесяца = 1 Тогда Возврат "Январь";
Иначе Если НомерМесяца = 2 Тогда Возврат "февраль";
...
КонецЕсли;
Можно как-то тоже самое получить системно ?
ЗЫ
Через Формат(Дата, " ") сделать не получается... Мне надо чтобы месяц был в именительном падеже :)
Подскажите можно как-то это сделать пользуясь системными функциями ? :)
21.
Гость
14.03.21 17:02
как написать команды?
2. Добавьте кнопку «Вывести названия месяцев года»: применив оператор цикла по счетчику «Для» выведите сообщения, каждое из которого содержит месяц года.
Подсказка: 12 обходов цикла. Внутри цикла используйте оператор условия «Если»
Дополнительно: получите тот же результат применив оператор Цикла по условия «Пока»
3. Кнопка «Вывести времена года»: создайте массив Времена Года из 4 элементов. Обойдите этот массив при помощи цикла по коллекциям «Для каждого»
2. Добавьте кнопку «Вывести названия месяцев года»: применив оператор цикла по счетчику «Для» выведите сообщения, каждое из которого содержит месяц года.
Подсказка: 12 обходов цикла. Внутри цикла используйте оператор условия «Если»
Дополнительно: получите тот же результат применив оператор Цикла по условия «Пока»
3. Кнопка «Вывести времена года»: создайте массив Времена Года из 4 элементов. Обойдите этот массив при помощи цикла по коллекциям «Для каждого»
Вакансии
1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день