Дата документа прописью #144541

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

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

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

тока месяц

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

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

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

format('01.01.05', "DDDMMMMYYYY") = 1 Января 2005 г. а человку наверное надо первое января две тысячи пятого года....

не то

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

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

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

если читать ...

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

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

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

Зачем?

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

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

Тля, в одну не получилось, да и год не учитывается.. =) В лом было нормально сделать. Ну а чем как вариант не устроит??? ~Метка: Если Чсл = 1 Тогда ЧслНов = ЧслНов + "первое"; ИначеЕсли Чсл = 2 Тогда ЧслНов = ЧслНов + "второе"; ИначеЕсли Чсл = 3 Тогда ЧслНов = ЧслНов + "третье"; ИначеЕсли Чсл = 4 Тогда ЧслНов = ЧслНов + "четвертое"; ИначеЕсли Чсл = 5 Тогда ЧслНов = ЧслНов + "пятое"; ИначеЕсли Чсл = 6 Тогда ЧслНов = ЧслНов + "шестое"; ИначеЕсли Чсл = 7 Тогда ЧслНов = ЧслНов + "седьмое"; ИначеЕсли Чсл = 8 Тогда ЧслНов = ЧслНов + "восьмое"; ИначеЕсли Чсл = 9 Тогда ЧслНов = ЧслНов + "девятое"; ИначеЕсли Чсл = 10 Тогда ЧслНов = "десятое"; ИначеЕсли Чсл = 11 Тогда ЧслНов = "одиннадцатое"; ИначеЕсли Чсл = 12 Тогда ЧслНов = "двенадцатое"; ИначеЕсли Чсл = 13 Тогда ЧслНов = "тринадцатое"; ИначеЕсли Чсл = 14 Тогда ЧслНов = "четырнадцатое"; ИначеЕсли Чсл = 15 Тогда ЧслНов = "пятнадцатое"; ИначеЕсли Чсл = 16 Тогда ЧслНов = "шестнадцатое"; ИначеЕсли Чсл = 17 Тогда ЧслНов = "семнадцатое"; ИначеЕсли Чсл = 18 Тогда ЧслНов = "восемнадцатое"; ИначеЕсли Чсл = 19 Тогда ЧслНов = "девятнадцатое"; ИначеЕсли Чсл = 20 Тогда ЧслНов = "двадцатое"; ИначеЕсли Чсл = 30 Тогда ЧслНов = "тридцатое";

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

+ См.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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