helpf.pro
Регистрация
 +13 
Распечатать

Функция месяц прописью

Код 1C v 8.х
 // пример от glory01
А = Формат('20020820153309', "ДФ=ММММ")
// А = "Август"
А = Формат(ТекущаяДата(), "ДФ=ММММ")
// А = "Март"


Код 1C v 7.x
  Функция МесяцПрописью(НомерМесяца) Экспорт
НомерМесяца=Число(НомерМесяца);
Если НомерМесяца = 1 Тогда
Возврат "Январь";
ИначеЕсли НомерМесяца = 2 Тогда
Возврат "Февраль";
ИначеЕсли НомерМесяца = 3 Тогда
Возврат "Март";
ИначеЕсли НомерМесяца = 4 Тогда
Возврат "Апрель";
ИначеЕсли НомерМесяца = 5 Тогда
Возврат "Май";
ИначеЕсли НомерМесяца = 6 Тогда
Возврат "Июнь";
ИначеЕсли НомерМесяца = 7 Тогда
Возврат "Июль";
ИначеЕсли НомерМесяца = 8 Тогда
Возврат "Август";
ИначеЕсли НомерМесяца = 9 Тогда
Возврат "Сентябрь";
ИначеЕсли НомерМесяца = 10 Тогда
Возврат "Октябрь";
ИначеЕсли НомерМесяца = 11 Тогда
Возврат "Ноябрь";
ИначеЕсли НомерМесяца = 12 Тогда
Возврат "Декабрь";
Иначе
Возврат "";
КонецЕсли;
конецфункции
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 74141
 +13 
Распечатать
Возможно, вас также заинтересует
Как заполнить табличную часть формы программно? 8
Нужно по кнопке Заполнить - сформировать данные для заполнения табличных частей и заполнить их. Форма имеет вид: Рядом с кнопкой Записать и закрыть добавлена кнопка Заполнить документ , код ее команды: // Код заполнения ТЧ НаСервере П
Cклонения по падежам 6
НаКлиенте Процедура Команда1(Команда) ФИО = " Иванов Иван Иванович" ; Падеж = 2; Пол = 1; Результат = СклонениеФИО(ФИО, Падеж, пол); Сообщить(Результат); КонецПроцедуры НаСервере Функция СклонениеФИО(ФИО, Падеж, пол) Результат = " " ;
Автоматическая выгрузка загрузка данных используя регламентное задание 18
Для обмена данными между программами необходимо сделать следующее: 1. При помощи Конвертации Данных создать правила выгрузки данных 2. Нужно чтобы в конфигурации была обработка УниверсальныйОбменДаннымиXML , желательно последней версии! (При помо
Ввод документа на основании - Программно 12
НовДок = Документы.ПеречислениеНДФЛвБюджет.СоздатьДокумент(); //Заполнить - вызывает ОбработкаЗаполнения(Основание) в документе ПеречислениеНДФЛвБюджет НовДок.Заполнить(ЭлементыФормы.ДокументСписок.ТекущаяСтрока); НовДок.ПолучитьФорму().Открыть()
Ввод дополнительного ежегодного отпуска 2
Вид расчета, используемый для начисления оплаты дополнительного ежегодного отпуска , описывается в плане видов расчета Основные начисления организаций . Новый вид расчета удобнее создать копированием предопределенного вида расчета Оплата отпуска п
Посмотреть все результаты поиска похожих
Комментарии
progr33
16.06.2014 16:58Комментарий: 4
progr33

Месяц прописью для 1с 7.7 можно получить:

М = Формат('16.06.2014',"ДММММ);

и согласно файла прописи получим 

М = Червень

или

М = Июнь

День прописью 

Д = Формат('16.06.2014',"ДНННН")

и согласно файла прописи получим 

М = Понеділок

или

М = Понедельник

Glebis
09.12.2013 12:13Комментарий: 3
Glebis
НомерМесяца = 2;
МесяцПрописью = Формат(Дата(2,НомерМесяца,1), "ДФ=MMMM");
//МесяцПрописью = "Февраль";
Лучше брать 2 год, чтобы январь не считался пустой датой.
E_Migachev
30.03.2010 11:45Комментарий: 2
E_Migachev
glory01, ) Твой вариант для 8-ых версий, а в 7.7 такого не было *11, добавил в ответ
glory01
30.03.2010 11:30Комментарий: 1
glory01
вот так тоже работает
А = Формат('20020820153309', "ДФ=ММММ")
// А = "Август"
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.