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

представление даты прописью 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.

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

Коллекция голосовых звонков MP3 для мобильника 1.0 Коллекция голосовых звонков MP3 для мобильника 1.0
Unknown

Коллекция голосовых звонков MP3 для мобильника - архив содержит: Ты не хочешь со мной разговаривать? | Привет Козявка! | Так и знай, ты - лопух! | Привет мой Котенок | А ни выпить ли нам пивка? | Срочно позвони домой | Сними мой лифчик | Пришелец в вашем мобильнике | Студент, проснитесь! | Если бы ты положил меня на кровать.

Коллекция голосовых звонков MP3 для мобильника Коллекция голосовых звонков MP3 для мобильника
Unknown

Коллекция отборных голосовых звонков MP3 для Вашего телефона.

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

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

МТС Стратегия 2005 МТС Стратегия 2005
Unknown

МТС Стратегия 2005 - аннотация (Стратегия 2005) Система автоматической торговли «Стратегия 2005» полностью автоматизирует процесс торговли на валютном рынке FOREX, самостоятельно производя сделки, освобождает трейдера от рутины постоянного наблюдения за рынком.

Multi-Sync 1.2b Multi-Sync 1.2b
Павлов В.А.

Программа, позволяющая сравнивать несколько пар каталогов (с их подкаталогами) за один раз и синхронизировать (с учетом большого количества параметров) их.

Multi-Sync, v1.2b Multi-Sync, v1.2b
V. A. Pavlov

Multi-Sync - программа, позволяющая сравнивать и синхронизировать несколько пар каталогов (с их подкаталогами) за один раз.

Memorize / Запоминалка 2 Memorize / Запоминалка 2
Свалов Александр Валерьевич

Тренажер, для развития зрительной памяти.

S-Tilez 01.00 S-Tilez 01.00
Unknown

Вариант игры "Концентрация" - логической игры на внимание и память, основанной на открывании одинаковых пар "плиток", закрывающих изображения (в данном случае - эротические).

Memorize v2.00 Memorize v2.00
Свалов Александр Валерьевич

Тренажер, для развития зрительной памяти.

Memorize / Запоминалка Memorize / Запоминалка
Unknown

Тренажер, для развития зрительной памяти.

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

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С, любых документов и важных данных.