Получить месяц в родительном падеже из даты

☑

0 Простенький вопросик

10.12.15

✎

11:01

Вот так получается в именительном
Формат(Дата, "ДФ='ММММ'")

А как в родительном?

1 Dmitrith

10.12.15

✎

11:03

Написать функцию, которая из именительного вернет родительный

2 Mashinist

10.12.15

✎

11:04

http://morpher.ru/

Функция ПолучитьСклонение(сСлова)
    Состояние("Получаю склонение слов "+сСлова+" из http://api.morpher.ru/WebService.asmx...";);
    Если Морфер = Неопределено Тогда
        ОпределениеМорфер=Новый WSОпределения("http://api.morpher.ru/WebService.asmx?WSDL";);
        Морфер=Новый WSПрокси(ОпределениеМорфер,"http://morpher.ru/","WebService","WebServiceSoap";);
    КонецЕсли;
    Склонения = Морфер.GetXml(сСлова);
    Состояние("");
    Возврат Склонения.Р;
КонецФункции

3 D01

10.12.15

✎

11:09

(0) это новый тип 1С-ника - "Дай готовое"?

слабо ввести 12 слов?

4 salvator

10.12.15

✎

11:11

(0) Уже отвечал в утренней теме:

ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Формат(МояДата, "ДФ=dd^MMMM^yyyy"),"^")[1]

5 Простенький вопросик

10.12.15

✎

11:14

(4)
Метод объекта не обнаружен (РазложитьСтрокуВМассивПодстрок)

6 Масянька

10.12.15

✎

11:16

(0) Молча. Взять и написать.
И, это, хватит уже темы плодить.

7 D01

10.12.15

✎

11:16

(5) поможет поиск в гугле - строку в массив, потом бить строку по ключевому символу и брать первый элемент (не нулевой)

8 salvator

10.12.15

✎

11:24

(5) Дарю

Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт

    МассивСтрок = Новый Массив();
    Если Разделитель = " " Тогда
        Стр = СокрЛП(Стр);
        Пока 1=1 Цикл
            Поз = Найти(Стр,Разделитель);
            Если Поз=0 Тогда
                МассивСтрок.Добавить(Стр);
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр,Поз-1));
            Стр = СокрЛ(Сред(Стр,Поз));
        КонецЦикла;
    Иначе
        ДлинаРазделителя = СтрДлина(Разделитель);
        Пока 1=1 Цикл
            Поз = Найти(Стр,Разделитель);
            Если Поз=0 Тогда
                МассивСтрок.Добавить(Стр);
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр,Поз-1));
            Стр = Сред(Стр,Поз+ДлинаРазделителя);
        КонецЦикла;
    КонецЕсли;

КонецФункции

9 hhhh

10.12.15

✎

11:26

(5)
МесяцИм = Формат(Дата, "ДФ='ММММ'");
Если Прав(МесяцИм, 1) = "ь" ИЛИ Прав(МесяцИм, 1) = "й" Тогда
МесяцРод = Лев(МесяцИм, СтрДлина(МесяцИм) - 1) + "я";
Иначе
МесяцРод = МесяцИм + "а";
КонецЕсли;

с тебя 999 рублей

10 Nuobu

10.12.15

✎

11:29

(9) Аплодирую стоя.

11 RomanYS

10.12.15

✎

11:31

Сред(Формат(Дата, "ДФ=ddMMMM"),3)

12 salvator

10.12.15

✎

11:36

(11) Все гениальное просто :))

13 Простенький вопросик

10.12.15

✎

11:52

остановился на (4), немного доработав под свою конфу
СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Формат(ДанныеПечати.ДатаДокумента, "ДФ=dd^MMMM^yyyy"),"^")[1];