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

1С 7.x : Функция месяц прописью

Код 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 |  Дата:   Прочитано: 22948
 +2 
Распечатать
Возможно, вас также заинтересует
Cклонения по падежам 4
НаКлиенте Процедура Команда1(Команда) ФИО = " Иванов Иван Иванович" ; Падеж = 2; Пол = 1; Результат = СклонениеФИО(ФИО, Падеж, пол); Сообщить(Результат); КонецПроцедуры НаСервере Функция СклонениеФИО(ФИО, Падеж, пол) ...
Ввод записей в журнал расчетов 0
Добавление записи в журнал расчетов: Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок, документов и т.д. Данный метод проверяет корректность заполненных реквизитов журнала расчетов....
Выбрать все движения регистра по датам в заданном интервале дат 0
Выбрать все движения регистра по датам в заданном интервале дат рег=создатьобъект(" Регистр.Обороты" ); рег.ВыбратьДвижения(НачМесяца(ТекущаяДата())); Пока рег.ПолучитьДвижение()=1 Цикл Сообщить(" Товар="...
Журнал регистрации 0
Журнал регистрации относится к информационной базе и служит для сохранения информации о событиях, возникающих в процессе работы пользователей с данной информационной базой . Эта информация может быть важной с...
Итоги оборотного регистра 0
// Пример 1 Регистр.ОборотыТоваров.ИспользоватьПериод(Год); Регистр.ОборотыТоваров.Итоги(Товар, Склад); ОбТов = Регистр.ОборотыТоваров.ОборотТовара; // Пример 2 РегДоходы = СоздатьОбъект(" Регистр.Доходы" ); ...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.