Дата прописью #358544

Как мне написать дату прописью? У меня например ДАТ=01.01.2008 мне в отчете надо чтобы написалось: ПервоГО января две тысячи восьмоГО года...................

Формат

у меня получается только 01 января 2008 г.А число и год никак

имхо, только свой файл прописи подключать

Я так написала.........Формат(Дат,"ДДДММММГГГГ")

свой файл прописи, это как? Простите уж если вопрос глупый

это типа где прописываешь 01- первого 02- второго 03- третьего 04- четвертого а потом заменяешь.

хотя тоже не поможет %( --- хм, есть еще вариант свою функцию по числам написать или подглядеть в типовых

в типовых пыталась найти..........чо-то не нарыла ничего похожего.

Пропись + немного извращений в помощь.

до меня не дошло :( колись -- там же один, одна, одно но никак не первый, первая, первое

Там есть файл 1CV7.spl

Я поняла, без функции не обойтись..............Спасибо всем, кто откликнулся, пошла функцию рисовать....))

Если Найти(ЗначВозврата,"ММММ")>0    Тогда СписЗамен.ДобавитьЗначение("ММММ",тМесяцСтр); КонецЕсли;    Если Найти(ЗначВозврата,"ММ")>0    Тогда СписЗамен.ДобавитьЗначение("ММ",    Формат(ДатаМесяц(нДата),"Ч2")); КонецЕсли;    Если Найти(ЗначВозврата,"мМ")>0    Тогда СписЗамен.ДобавитьЗначение("мМ",    ""+ДатаМесяц(нДата)); КонецЕсли;    Если Найти(ЗначВозврата,"ДД")>0    Тогда СписЗамен.ДобавитьЗначение("ДД",    Формат(ДатаЧисло(нДата),"Ч2")); КонецЕсли;    Если Найти(ЗначВозврата,"ДД")>0    Тогда СписЗамен.ДобавитьЗначение("ДД",    ""+ДатаЧисло(нДата)); КонецЕсли;    Если Найти(ЗначВозврата,"НН")>0    Тогда СписЗамен.ДобавитьЗначение("НН",    Формат(НомерНеделиГода(нДата),"Ч2")); КонецЕсли;    Если Найти(ЗначВозврата,"нН")>0    Тогда СписЗамен.ДобавитьЗначение("нН",    ""+НомерНеделиГода(нДата)); КонецЕсли;        Если Найти(ЗначВозврата,"№Нед")>0    Тогда СписЗамен.ДобавитьЗначение("№Нед",    вНомНедели); КонецЕсли;

Ща...

ЗЫ: Код не оптимизирован... Естественно не работает для дат >3000 года и меньше 1000  - в коде ясно почему.. Но на наш век хватит :)

Угу, спасибо, прикольно