Подскажите пожалуйста, как в печатной форме документа отобразить дату документа прописью

Что такое "прописью"? только месяц или все циферки?

Формат(ДатаДок, "Д ДДММММГГГГ");

тока месяц

стандартно нет...

(0) Формат(ДатаДок,"ДДДММММГГГГ") - работает

(4) Легко. НачМесяца(ДатаДок).. КонМесяца(ДатаДок).. Потом период прописью...

format('01.01.05', "DDDMMMMYYYY") = 1 Января 2005 г.


а человку наверное надо первое января две тысячи пятого года....

(6)не то

Формат(ДатаДок,"ДММММ")

(7) ты со своей Веркой совсем голову потерял? см.3

(6) и чего будет?
(7) вроде как в (3) написано только месяц... тады никак, т.е. число прописью выдать можно, но числительные будут некрасиво выглядеть

(8)если читать (3)...

тогда Таня все уделала ... я прочитал (3) как ответ Тане ... не то

(11) Месяц 2005 года. А ему действительно только МЕСЯЦ надо? Или ему документ нужно обозвать "Ведомость за МЕСЯЦ 2005 года".
Да, победила Таня.

(0) напиши свой mounths.spl

(15) Зачем?

(0) Ща замутим в одну строку.. =)

(17) Там и так одна строка ;)

Тля, в одну не получилось, да и год не учитывается.. =) В лом было нормально сделать. Ну а чем как вариант не устроит???

ДатаНов = Формат(ФормируемаяДата,"ДДДММММГГГГ");
С = СтрЗаменить(ДатаНов," ",РазделительСтрок);
Чсл = число(СтрПолучитьСтроку(С,1));
ЧслНов = "";
~Метка: Если Чсл = 1 Тогда ЧслНов = ЧслНов + "первое";
ИначеЕсли Чсл = 2 Тогда ЧслНов = ЧслНов + "второе";
ИначеЕсли Чсл = 3 Тогда ЧслНов = ЧслНов + "третье";
ИначеЕсли Чсл = 4 Тогда ЧслНов = ЧслНов + "четвертое";
ИначеЕсли Чсл = 5 Тогда ЧслНов = ЧслНов + "пятое";
ИначеЕсли Чсл = 6 Тогда ЧслНов = ЧслНов + "шестое";
ИначеЕсли Чсл = 7 Тогда ЧслНов = ЧслНов + "седьмое";
ИначеЕсли Чсл = 8 Тогда ЧслНов = ЧслНов + "восьмое";
ИначеЕсли Чсл = 9 Тогда ЧслНов = ЧслНов + "девятое";
ИначеЕсли Чсл = 10 Тогда ЧслНов = "десятое";
ИначеЕсли Чсл = 11 Тогда ЧслНов = "одиннадцатое";
ИначеЕсли Чсл = 12 Тогда ЧслНов = "двенадцатое";
ИначеЕсли Чсл = 13 Тогда ЧслНов = "тринадцатое";
ИначеЕсли Чсл = 14 Тогда ЧслНов = "четырнадцатое";
ИначеЕсли Чсл = 15 Тогда ЧслНов = "пятнадцатое";
ИначеЕсли Чсл = 16 Тогда ЧслНов = "шестнадцатое";
ИначеЕсли Чсл = 17 Тогда ЧслНов = "семнадцатое";
ИначеЕсли Чсл = 18 Тогда ЧслНов = "восемнадцатое";
ИначеЕсли Чсл = 19 Тогда ЧслНов = "девятнадцатое";
ИначеЕсли Чсл = 20 Тогда ЧслНов = "двадцатое";
ИначеЕсли Чсл = 30 Тогда ЧслНов = "тридцатое";
Иначе
   Если (Чсл > 20) и (Чсл<30) Тогда
       ЧслНов = "двадцать ";
       Чсл = число(Прав(строка(Чсл),1));
       Перейти ~Метка;
   Иначе
       ЧслНов = "тридцать первое";
   КонецЕсли;
КонецЕсли;
Сообщить(строка(ЧслНов)+ " "+нрег(СтрПолучитьСтроку(С,2))+" "+"две тысячи пятого года");

(19) Там требовалось Формат(ДатаДок,"ДММММ"); =)

+(20) См. (3)

(20) Я на случай, если понадобится кому-то "Двадцатое декабря две тысячи пятого года"

(19)вы всегда так пишете?

(23) Нет, только на форумах. =)

а ... типа знаниями делитись?

Нифига, вот поглумились то ...
А я думал што тока я на работе пью :(

(26) И не думал =) Я на работе жду когда обед кончится, чтобы опять за работу взяться.. =)
Только не пойму что скунку не нравится?

(27)Счас поковыряюсь, тоже выложу. гдето меня заставляли такое делать. А че Скунки не нравица, не знаю. Он прикалываеца, как всегда. Наверно скушно...

(27) skunk-у goto не ндравится. и мне тоже.

(29) Ха! Так и знал. Вы не знали, что я старый бейсечник? =)))

извращенцы. напишите .spl и не насилуйте мозг.

(30)спорим сделаю просще... и без гоуто ... и 2005 можно будет в пропись гнать...

(30) А что, типа на бейсике можно? Помнится когда я в школе шкряпал на бейсике, то нас тоже носом в лужу за это тыкали.

(32) И не сомневаюсь. Я где-то сказал о таком?
(33) Там этот механизм юзался только в путь.. =)

И вообще, зачем демагогию разводить? Я предложил, а уж каждый решает сам - юзать или нет. =)

Пипец, :))) немагу найти в форме таблицу.

(36) И часто такое бывает? =)

Гыы.. Исчу внешнюю печатную в Экстформсе, тормоз... они же в Принтформсе, счас пакажу :))
(37) Да я последние полгода воще не касаюсь, надоело ...

О ! Фсе гениальное просто. Проверено.
Формат(Дата,"Д(0)ДДММММГГГГ");

:( Правда, с чуством юмора у меня штото ...