представление даты прописью

представление даты прописью Screenshot //***************************************************************************** // ПрописьДата() // // Параметры: // Д - дата в формате ДД.

Разработчик:   hunter
      другие программы →
Лицензия:   Unknown
Размер:   0K
Язык:   
ОС:   Windows 98/XP/Vista (?)
Рейтинг:   0 /5 (0 голосов)

//*****************************************************************************
// ПрописьДата()
//
// Параметры:
// Д - дата в формате ДД.MM.ГГГГ
// Возвращаемое значение:
// дата прописью
// Описание:
//
Функция глПрописьДата(Д) Экспорт
стрРез = "";

спсМес = СоздатьОбъект("СписокЗначений");
спсМес.ДобавитьЗначение("января");
спсМес.ДобавитьЗначение("февраля");
спсМес.ДобавитьЗначение("марта");
спсМес.ДобавитьЗначение("апреля");
спсМес.ДобавитьЗначение("мая");
спсМес.ДобавитьЗначение("июня");
спсМес.ДобавитьЗначение("июля");
спсМес.ДобавитьЗначение("августа");
спсМес.ДобавитьЗначение("сентября");
спсМес.ДобавитьЗначение("октября");
спсМес.ДобавитьЗначение("ноября");
спсМес.ДобавитьЗначение("декабря");

спсЧисл = СоздатьОбъект("СписокЗначений");
спсЧисл.ДобавитьЗначение("первое","первого");
спсЧисл.ДобавитьЗначение("второе","второго");
спсЧисл.ДобавитьЗначение("третье","третьего");
спсЧисл.ДобавитьЗначение("четвертое","четвертого");
спсЧисл.ДобавитьЗначение("пятое","пятого");
спсЧисл.ДобавитьЗначение("шестое","шестого");
спсЧисл.ДобавитьЗначение("седьмое","седьмого");
спсЧисл.ДобавитьЗначение("восьмое","восьмого");
спсЧисл.ДобавитьЗначение("девятое","девятого");

//числительные им.падеж
спсЧислИм = СоздатьОбъект("СписокЗначений");
спсЧислИм.ДобавитьЗначение("тысяча","тысячного");
спсЧислИм.ДобавитьЗначение("две тысячи","двухтысячного");
спсЧислИм.ДобавитьЗначение("три тысячи","трехтысячного");
спсЧислИм.ДобавитьЗначение("четыре тысячи","четырехтысячного");
спсЧислИм.ДобавитьЗначение("пять","пятитысячного");
спсЧислИм.ДобавитьЗначение("шесть","шеститысячного");
спсЧислИм.ДобавитьЗначение("семь","семитысячного");
спсЧислИм.ДобавитьЗначение("восемь","восьмитысячного");
спсЧислИм.ДобавитьЗначение("девять","девятитысячного");

спсСотни = СоздатьОбъект("СписокЗначений");
спсСотни.ДобавитьЗначение("сто");
спсСотни.ДобавитьЗначение("двести");
спсСотни.ДобавитьЗначение("триста");
спсСотни.ДобавитьЗначение("четыреста");
спсСотни.ДобавитьЗначение("пятьсот");
спсСотни.ДобавитьЗначение("шестьсот");
спсСотни.ДобавитьЗначение("семьсот");
спсСотни.ДобавитьЗначение("восемьсот");
спсСотни.ДобавитьЗначение("девятьсот");

//десятки им.падеж
спсДесИм = СоздатьОбъект("СписокЗначений");
спсДесИм.ДобавитьЗначение("","десятого");
спсДесИм.ДобавитьЗначение("двадцать","двадцатого");
спсДесИм.ДобавитьЗначение("тридцать","тридцатого");
спсДесИм.ДобавитьЗначение("сорок","сорокового");
спсДесИм.ДобавитьЗначение("пятьдесят","пятидесятого");
спсДесИм.ДобавитьЗначение("шестьдесят","шестидесятого");
спсДесИм.ДобавитьЗначение("семьдесят","семидесятого");
спсДесИм.ДобавитьЗначение("восемьдесят","восьмидесятого");
спсДесИм.ДобавитьЗначение("девяносто","девяностого");

//субдесятки род.падеж
спсСубДесРод = СоздатьОбъект("СписокЗначений");
спсСубДесРод.ДобавитьЗначение("одиннадцатого");
спсСубДесРод.ДобавитьЗначение("двенадцатого");
спсСубДесРод.ДобавитьЗначение("тринадцатого");
спсСубДесРод.ДобавитьЗначение("четырнадцатого");
спсСубДесРод.ДобавитьЗначение("пятнадцатого");
спсСубДесРод.ДобавитьЗначение("шестнадцатого");
спсСубДесРод.ДобавитьЗначение("семнадцатого");
спсСубДесРод.ДобавитьЗначение("восемнадцатого");
спсСубДесРод.ДобавитьЗначение("девятнадцатого");

спсДес = СоздатьОбъект("СписокЗначений");
спсДес.ДобавитьЗначение("десятое");
спсДес.ДобавитьЗначение("двадцатое","двадцать");
спсДес.ДобавитьЗначение("тридцатое","тридцать");
спсДес.ДобавитьЗначение("сороковое","тридцать");
спсДес.ДобавитьЗначение("пятидесятое","тридцать");
спсДес.ДобавитьЗначение("шестидесятое","тридцать");
спсДес.ДобавитьЗначение("семидесятое","тридцать");

спсСубДес = СоздатьОбъект("СписокЗначений");
спсСубДес.ДобавитьЗначение("одиннадцатое");
спсСубДес.ДобавитьЗначение("двенадцатое");
спсСубДес.ДобавитьЗначение("тринадцатое");
спсСубДес.ДобавитьЗначение("четырнадцатое");
спсСубДес.ДобавитьЗначение("пятнадцатое");
спсСубДес.ДобавитьЗначение("шестнадцатое");
спсСубДес.ДобавитьЗначение("семнадцатое");
спсСубДес.ДобавитьЗначение("восемнадцатое");
спсСубДес.ДобавитьЗначение("девятнадцатое");

спсДаты = СтрЗаменить(СокрЛП(Д),".",РазделительСтрок);
//разбираем день
стрДень = СокрЛП(Число(СтрПолучитьСтроку(спсДаты,1)));
Если СтрДлина(стрДень)=1 Тогда
стрДень = спсЧисл.ПолучитьЗначение(Число(стрДень));
Иначе
десДень = Число(Лев(стрДень,1));
едДень = Число(Прав(стрДень,1));

Если едДень=0 Тогда
стрДень = спсДес.ПолучитьЗначение(десДень);
Иначе
Если десДень>1 Тогда
т = ""; спсДес.ПолучитьЗначение(десДень,т);
стрДень = т+" "+спсЧисл.ПолучитьЗначение(едДень);
Иначе
стрДень = спсСубДес.ПолучитьЗначение(едДень);
КонецЕсли;
КонецЕсли;
КонецЕсли;
//разбираем месяц
стрМес = спсМес.ПолучитьЗначение(Число(СтрПолучитьСтроку(спсДаты,2)));

//разбираем год
стрГод = СтрПолучитьСтроку(спсДаты,3);
длинаГода = СтрДлина(стрГод);
Если длинаГода=4 Тогда
тыс = Сред(стрГод,1,1); сот = Сред(стрГод,2,1); дес = Сред(стрГод,3,1); ед = Сред(стрГод,4,1);
_т = спсЧислИм.ПолучитьЗначение(Число(тыс));
Если (Число(сот)=0) и (Число(дес)=0) и (Число(ед)=0) Тогда
миллениум = ""; спсЧислИм.ПолучитьЗначение(Число(тыс),миллениум);
стрГод = миллениум;
Иначе
с = ""; дс = ""; е = "";
Если Число(сот)0 Тогда
с = спсСотни.ПолучитьЗначение(Число(сот));
КонецЕсли;
Если Число(дес)0 Тогда
Если Число(ед)=0 Тогда
_дг = ""; спсДесИм.ПолучитьЗначение(Число(дес),_дг);
дс = _дг;
Иначе
Если Число(дес)>1 Тогда
дс = спсДесИм.ПолучитьЗначение(Число(дес));
Иначе
дс = спсСубДесРод.ПолучитьЗначение(Число(ед));
КонецЕсли;

КонецЕсли;
КонецЕсли;
Если (Число(дес)>1) или (Число(дес)=0) Тогда
Если Число(ед)0 Тогда
//е = "";
спсЧисл.ПолучитьЗначение(Число(ед),е);
КонецЕсли;
КонецЕсли;
стрГод = _т+?(ПустоеЗначение(с)=0," ","")+с+?(ПУстоеЗначение(дс)=0," ","")+дс+" "+е;
КонецЕсли;
Иначе

КонецЕсли;
стрГод = стрГод+" года";
стрРез = стрДень+" "+стрМес+" "+стрГод;
//Сообщить(стрДень+" "+стрМес+" "+стрГод);
Возврат стрРез;
КонецФункции //ПрописьДата*/

 Скачать представление даты прописью

представление даты прописью screenshot
Программы разработчика

Отчет Отчет "Расчетные листки"
hunter

модифицрованный отчет "Расчетные листки" из 1С:Зарплата и Кадры.

Обработки Обработки "Выгрузка данных в текстовый фалй" и "Загрузка данных из текстового файла".(Отредакитрованные стандартные 1С-овские обработки Import77.ert и Export77.ert).
hunter

В обработке Export77.

"Редактор каледарей" (Обработка Календарь.ert)
hunter

Обработка "Календари"(редактор календарей для "1С:Зарплата и Кадры" - версия 1.

Расширение обработки Расширение обработки "ДополнительныеВозможности"
hunter

//*****************************************************// Добавлена возможность разграничения прав доступа пользователей к тем или иным отчетам (обработкам).

Документ Документ "Произвольное движение по регистрам"
hunter

Движение регистров v.

Альтернативные программы

представление даты прописью представление даты прописью
hunter

//***************************************************************************** // ПрописьДата() // // Параметры: // Д - дата в формате ДД.

iVocalize 1.0.0.2 iVocalize 1.0.0.2
Bryan Vergato

Çàäà÷à: Îòïðàâèòü èíôîðìàöèþ î Âàøå ïðîãðàììå íà êðóïíåéøèå ñåðâåðà, ïîñâÿùåííûå ñâîáîäíîðàñïðîñòðàíÿåìîìó ïðîãðàììíîìó îáåñïå÷åíèþ.

DenPro - денежная сумма прописью (Excel-листы) 1.4 DenPro - денежная сумма прописью (Excel-листы) 1.4
Дубина Александр Георгиевич

Листы DenPro обеспечивают: 1) Экономию времени, исключение ошибок и простоту использования при создании выражений-прописей для денежных сумм.

DenPro - листы Excel для форирования прописи денежной суммы DenPro - листы Excel для форирования прописи денежной суммы
Дубина Александр Георгиевич

Листы DenPro обеспечивают: 1) Экономию времени, исключение ошибок и простоту использования при создании выражений-прописей для денежных сумм.

Mario's Balls 1.2 Mario's Balls 1.2
Absolutist.com

Думаю, правила игры Lines знают все.

Голосовой набор. 1.0 Голосовой набор. 1.0
Одитек

Описание программы Требования к программному и аппаратному обеспечению: * - Операционная среда Windows; * - Звуковая карта; * - Микрофон, аудиосистема; Состав файлов.

ДенПро - денежная сумма прописью ДенПро - денежная сумма прописью
Дубина Александр

Экономия времени и исключение ошибок при создании выражений-прописей для денежных сумм.

Darkness v офлайн журнал Даркнесс выпуск элек 13 Darkness v офлайн журнал Даркнесс выпуск элек 13
Черный Рыцарь Крокодилович

Содержание выпуска 13 Даркнесс: Обращение к читателям; Багдадское позорище; Новости: ITоги 2002 года.

Darkness # 13 Darkness # 13
Черный Рыцарь Крокодилович

Содержание выпуска 13 Даркнесс: Обращение к читателям; Багдадское позорище; Новости: ITоги 2002 года.

Summ_kaa.dll, 1.0.0 Summ_kaa.dll, 1.0.0
Кудряшов Андрей

Библиотека написана на VBasic 6.

Другие программы категории

Homba 2 Homba 2
Светлицкий Валерий Павлович

Программа "Homba" предназначена для просмотра и анализа конфигураций системы 1С-Предприятие 7.

Управление файлами, версия 1.00 Управление файлами, версия 1.00 
koser

Когда меня достало "раскидывать" по сети на множество компов всяческие одинаковые файлы и обновления, то решил - пусть 1С этим займеться.

Методика.Окно табличной части документов Методика.Окно табличной части документов
Item

Демо конфигурация v77.

Цикл уроков по бухгалтерской программе Цикл уроков по бухгалтерской программе "1С:Бухгалтерия 7.7 для Украины".
Alexandr

Подбока уроков рубрики "Компьютерный практикум" из журнала "Налоги и бухучет".

MZ:Архиватор PRO 1.5.0.0 - резервное копирование баз 1С MZ:Архиватор PRO 1.5.0.0 - резервное копирование баз 1С 
mzaharenkov

MZ:Архиватор PRO - это программа для резервного копирования баз 1С, любых документов и важных данных.