Имя: Пароль:
1C
1С v8
получить месяц прописью
0 dron4ikkk
 
13.03.14
10:09
Всем привет! задачка такая в элементе надписи необохдимо вывести месяц прописью(ну в зависимости от полученной разницы)у меня на данный момент выводится число месяца, но не прописью


МесяцИзКонстанты = ЧислоМесяц.Получить();
    ТекущийМесяц = Месяц(ТекущаяДата());    
    Результат = Строка(ТекущийМесяц)-МесяцИзКонстанты;
    ЭлементыФормы.Надпись3.Значение=Формат(Результат," ДФ=ММММ");
1 ИС-2
 
naïve
13.03.14
10:12
формат(дата,"ДФ=ММММ")
2 ИС-2
 
naïve
13.03.14
10:14
ну еще может
ЭлементыФормы.Надпись3.Заголовок = Формат(Результат,"ДФ=ММММ");
3 hhhh
 
13.03.14
10:14
(0) Результат - это тип строка, для типа строка функция Формат не предусмотрена.

У функции Формат параметр должен быть или число или дата или булево.
4 Ане4ка1с
 
13.03.14
10:15
Че-то как-то не понятно.
Март - Январь(из константы) = ?, число месяцев разницы? или как?
5 Kurbash
 
13.03.14
10:27
Функция МесяцПрописью(НомерМесяца) Экспорт
    НомерМесяца=Число(НомерМесяца);
    Если НомерМесяца = 1 Тогда
        Возврат "Январь";
    ИначеЕсли НомерМесяца = 2 Тогда
        Возврат "Февраль";
    ИначеЕсли НомерМесяца = 3 Тогда
        Возврат "Март";
    ИначеЕсли НомерМесяца = 4 Тогда
        Возврат "Апрель";
    ИначеЕсли НомерМесяца = 5 Тогда
        Возврат "Май";
    ИначеЕсли НомерМесяца = 6 Тогда
        Возврат "Июнь";
    ИначеЕсли НомерМесяца = 7 Тогда
        Возврат "Июль";
    ИначеЕсли НомерМесяца = 8 Тогда
        Возврат "Август";
    ИначеЕсли НомерМесяца = 9 Тогда
        Возврат "Сентябрь";
    ИначеЕсли НомерМесяца = 10 Тогда
        Возврат "Октябрь";
    ИначеЕсли НомерМесяца = 11 Тогда
        Возврат "Ноябрь";
    ИначеЕсли НомерМесяца = 12 Тогда
        Возврат "Декабрь";
    Иначе
        Возврат "";
    КонецЕсли;
конецфункции
6 butterbean
 
13.03.14
10:28
(5) пздц
7 Kurbash
 
13.03.14
10:28
(6)-ага))))
8 Kurbash
 
13.03.14
10:29
но работает:), можно еще конечно с форматной строкой поиграться типа ФорматнаяСтрока = "ДФ = ""ММММ гггг """"г.""""""";
9 Starhan
 
13.03.14
10:30
Видимо еще надо родительный падеж.
10 Starhan
 
13.03.14
10:33
(0)
Результат = Строка(ТекущийМесяц)-МесяцИзКонстанты;
    ЭлементыФормы.Надпись3.Значение=Формат(Результат," ДФ=ММММ");
---------
У тебя результат, число (или строка), а надо дата.
11 Starhan
 
13.03.14
10:40
Какой-то код нечетабельный нихуа в (0)

Если в ЧислоМесяц храниться число сколько месяцев надо отнять тогда код должен быть такой

МесяцИзКонстанты = ЧислоМесяц.Получить();        
Результат = ДобавитьМесяц(ТекущаяДата(),-МесяцИзКонстанты);
ЭлементыФормы.Надпись3.Значение=Формат(Результат," ДФ=ММММ");
12 СВМ
 
13.03.14
10:48
ЭлементыФормы.Надпись3.Значение = Формат(Дата(1,Результат,1)," ДФ=ММММ");
Программист всегда исправляет последнюю ошибку.