нужно 1 3 5
преобразовать
1 год 3 месяца 5 дней
для любых вариантов

так..

1С: Зона Строгого Режима?

1 + "год" + 2 + "месяца" ? =))

Если 1 то "год"
ИначеЕсли 2,3,4 то "года"
ИначеЕсли 5,6,7,8,9,10 и т.д. то "лет"
Если 1 то "месяц"
ИначеЕсли 2,3,4 то "месяца"
ИначеЕсли 5,6,7,8,9,10,11,12 то "месяцев"
Если 1 то "день"
ИначеЕсли 2,3,4 то "дня"
ИначеЕсли 5 и т.д. то "дней"

(4) 21 дней? автор же буквально примет

(4) г@внокод

(6) он даже может работать

(2)гарантийный талон

(8) продолжайте наблюдения

(9) +1

up

да в школе такие задачки дают

(11) что ап? чего ты от нас хочешь? (ты же сюда спросить пришёл, не?)

(13)да. подскажите пожалуйста как это закодить

(14) изучал (4)? много думал?

Функция КоличествоЛет(Чис)
  Возврат ЧислоПрописью(Чис,,"год,года,лет,м,,,,,0")
КонецФункции

Функция КоличествоМесяцев(Чис)
  Возврат ЧислоПрописью(Чис,,"месяц,меясца,месяцев,м,,,,,0")
КонецФункции

Функция КоличествоДней(Чис)
  Возврат ЧислоПрописью(Чис,,"день, дня, дней,м,,,,,0")
КонецФункции

(16) ну и что? как это заставить работать?

(17) //подумал автор

Функция СлепилиБабуНаМорозе(Чис1,Чис2,Чис3)
  Возврат ЧислоПрописью(Чис1,,"год,года,лет,м,,,,,0")+" "+ЧислоПрописью(Чис2,,"месяц,меясца,месяцев,м,,,,,0")+" "+ЧислоПрописью(Чис3,,"день, дня, дней,м,,,,,0")
КонецФункции

резалт = СлепилиБабуНаМорозе(1, 3, 5)

а число прописью умеет в нижнем регистре говорить?

(19)спасибо
только нужно чтобы было "1 год 4 месяца 15 дней"
т.е. цифры с буквами

(21) можно я буду молчать?

Функция СлепилиБабуНаМорозе(Чис1,Чис2,Чис3)
  Возврат "" + Чис1 + " " + ЧислоПрописью(Чис1,,"год,года,лет,м,,,,,0")+" " + Чис2 + " " +ЧислоПрописью(Чис2,,"месяц,меясца,месяцев,м,,,,,0")+" " + Чис3 + " " +ЧислоПрописью(Чис3,,"день, дня, дней,м,,,,,0")
КонецФункции

резалт = СлепилиБабуНаМорозе(1, 3, 5)

нужно ещё век и тысячелетие предусмотреть

(23) и что выдаст ?

(23) 21 Двадцать один год 5 Пять месяцев 18 Восемнадцать дней

Функция СлепилиБабуНаМорозе переименовать в промышленнаяERPсистема )))

(25) ну мне что все писать за ТС, пусть сам уберет ненужное

(28)в смысле стрзаменить?

+(28) а (16) что выдаст?

(29) в смысле применить функцию ПрострелитьКоленку(Истина)

(28) какой параметр указать, что бы число было непрописью =)

(32) СтрЗаменить() подойдёт. только для него нужно преобразовать число в число прописью

(32) ну и какой?

up

чего ап ?

трудно мозги чтоли включить?

(36) наверно, из типовой надо скопипастить, там копейки не прописью фигачат.

Функция СлепилиБабуНаМорозе(Чис1,Чис2,Чис3)
   Возврат ""
   + Чис1 + " " + СтрЗаменить(ЧислоПрописью(Чис1,,"год,года,лет,м,,,,,0"),ЧислоПрописью(Чис1,,",,,,,,,,0"),"")+" "
   + Чис2 + " " + СтрЗаменить(ЧислоПрописью(Чис2,,"месяц,месяца,месяцев,м,,,,,0"),ЧислоПрописью(Чис2,,",,,,,,,,0"),"")+" "
   + Чис3 + " " + СтрЗаменить(ЧислоПрописью(Чис3,,"день, дня, дней,м,,,,,0"),ЧислоПрописью(Чис3,,",,,,,,,,0"),"")+" "
КонецФункции

резалт = СлепилиБабуНаМорозе(1, 3, 5)

(39) я за (4) всё-таки.

Функция НайтиПоследний(Стр, С = " ")
  ДлинаСтр = СтрДлина(Стр);
  Для н = -ДлинаСтр по -1 Цикл
     Если Сред(Стр, -н, 1) = С Тогда Возврат н; КонецЕСли;
  КонецЦикла;
  Возврат 0;
КонецФункции

Годов = Чис + " " + Сред(КоличествоЛет(Чис), НайтиПоследний(КоличествоЛет(Чис)) + 1);

(40) там копрокод

(39)(4)спасибо
если б знал (или помнил) что всё так просто всего несколько вариантов то и ветки не было бы
видать русский язык я забыл уже

Процедура РазобратьРазностьДат(Дата1, Дата2, Лет = 0, Месяцев = 0, Дней = 0) Экспорт
   
   Лет        = 0;
   Месяцев    = 0;
   Дней    = 0;
   Если Дата1 > Дата2 Тогда
       
       ВременнаяДата = Дата1;
       Если День(ВременнаяДата) < День(Дата2) Тогда
           Дней = (ВременнаяДата - ДобавитьМесяц(ВременнаяДата,-1))/86400;
           ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);
       КонецЕсли;
       Если Месяц(ВременнаяДата) < Месяц(Дата2) Тогда
           ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);
           Месяцев = 12;
       КонецЕсли;
       Лет        = Макс(             Год(ВременнаяДата)        - Год(Дата2),    0);
       Месяцев    = Макс(Месяцев    + Месяц(ВременнаяДата)    - Месяц(Дата2),    0);
       Дней    = Макс(Дней        + День(ВременнаяДата)    - День(Дата2),    0);
       
       // скорректируем отображаемое значение, если "вмешалось" разное количество дней в месяцах
       Если Дата2 <> (ДобавитьМесяц(Дата1,-Лет*12-Месяцев)-Дней*86400) Тогда
           Дней = Дней + ((ДобавитьМесяц(Дата1,-Лет*12-Месяцев)-Дней*86400) - Дата2)/86400;
           //(День(КонецМесяца(Дата2)) - День(НачалоМесяца(Дата2))) - (День(КонецМесяца(ДобавитьМесяц(Дата1,-1))) - День(НачалоМесяца(ДобавитьМесяц(Дата1,-1))));
       КонецЕсли;
       
   КонецЕсли;

КонецПроцедуры    // РазобратьРазностьДат