Правило написания числительных прописью. Формы написания чисел в тексте документов Правильное написание чисел
Как писать сумму прописью? Просто введите требуемое число, используя запятую или точку как разделитель и выберите нужную ставку НДС.
В рублях
Ноль рублей 00 копеек
Ноль рублей 00 коп.
В долларах
Ноль долларов 00 центов
В евро
Ноль евро 00 евроцентов
В гривнах
нуль гривень 00 копійок
* Сервис позволяет получать суммы прописью в рублях, евро, долларах (русский язык) и гривнах (украинский язык)
** Сферы использования - заполнение документов, бухгалтерия и пр.
*** Для корректного ввода суммы прописью желательно использовать запятую, как разделитель
****
Внимательно проверьте полученную сумму прописью! сайт не несёт ответственности за неточности в работе программы!
Другие полезные сервисы для обработки текста:
Пример конвертации суммы цифрами в сумму прописью:
Вводите: 23434,44
Получаете:
В рублях
двадцать три тысячи четыреста тридцать четыре рубля 44 копейки
В долларах
двадцать три тысячи четыреста тридцать четыре доллара 44 цента
В евро
двадцать три тысячи четыреста тридцать четыре евро 44 цента
В гривнах
двадцять три тисячі чотириста тридцять чотири гривні 44 копійки
Форматированное число
23 434,44
Пример с расчётом суммы прописью онлайн с выбранным из списка НДС 18 процентов
В рублях
Сто пятьдесят три тысячи четыреста пятьдесят шесть рублей 79 копеек
Сто пятьдесят три тысячи четыреста пятьдесят шесть рублей 79 коп.
В долларах
Сто пятьдесят три тысячи четыреста пятьдесят шесть долларов 79 центов
В евро
Сто пятьдесят три тысячи четыреста пятьдесят шесть евро 79 центов
В гривнах
Сто п"ятдесят три тисячі чотириста п"ятдесят шість гривень 79 копійок
Исходное число (форматированное): 153 456,79
C НДС (включен 18%)
Сто восемьдесят одна тысяча семьдесят девять рублей 01 копейка, в т.ч. НДС 18% - Двадцать семь тысяч шестьсот двадцать два рубля 22 копейки.
181079.01 руб. (Сто восемьдесят одна тысяча семьдесят девять рублей 01 копейка), в т.ч. НДС 18% - 27622.22. (Двадцать семь тысяч шестьсот двадцать два рубля 22 копейки).
Не включен НДС 18%
Сто пятьдесят три тысячи четыреста пятьдесят шесть рублей 79 копеек, в т.ч. НДС 18% - Двадцать семь тысяч шестьсот двадцать два рубля 22 копейки.
153456.79 руб. (Сто пятьдесят три тысячи четыреста пятьдесят шесть рублей 79 копеек), в т.ч. НДС 18% - 27622.22. (Двадцать семь тысяч шестьсот двадцать два рубля 22 копейки).
Онлайн сервис преобразования чисел в сумму прописью в рублях, гривнах, евро или долларах с произвольной ставкой НДС.
Нужны еще варианты вывода? Присылайте их в нашу группу Вконтакте - ссылка ниже.
Многие родители, уделяя много времени обучению правильного написания букв, совсем не обращают внимания на написание цифр. А ведь это дело тоже весьма не простое.
Сколько раз наблюдала, как дети пишут цифры совершенно невозможным способом - 5 начинают снизу, в 8-ке проводят два раза по одному месту...
Распечатайте детям вот этот шаблон и повесьте прямо на стену над рабочим местом малыша.
Покажите последовательность написания каждой цифры. Обратите внимание на начальную точку, откуда начинается написание каждой цифры.
Поработайте над прописью вместе с малышом, отрабатывая каждую деталь цифры.
Скачать архив: Скачать файл: (cкачиваний: 5835)
Уважаемые читатели!
Все материалы с сайта можно скачивать абсолютно бесплатно. Все файлы проверены антивирусом и не содержат скрытых скриптов.
Картинки в архивах не помечены водяными знаками.
Сайт пополняется материалами на основе бесплатной работы авторов. Eсли вы хотите отблагодарить их за работу и поддержать наш проект, вы можете перевести любую, не обременительную для вас сумму, на счет сайта.
Заранее Вам спасибо!!!
В любом тексте цифры имеют важное фактическое значение. Они подтверждают информации, дают точные сведения, вносят важные данные.
Любой человек, создающий тексты, должен уметь правильно пользоваться числовыми данными, записывать их верно и без ошибок.
Вот некоторые правила написания цифр в письменных источниках:
1. Цифры воспринимаются лучше, чем их буквенные эквиваленты, а, значит, и запоминаются больше:
2. Крупные числа следует писать с буквенными сокращениями – так легче воспринимать число, а если оно особенно большое, то с пробелами после каждого разряда:
3. Если текст начинается с числа, то писать его цифрами нельзя. В таком случае число прописывается буквами:
- Три года тому назад у меня родился брат;
- Двадцать пять лет прошло, а тут так ничего и не изменилось;
- 10 причин бросить пить;
- 23 приметы, что вы замужем;
- 30-градусная жара, 40-градусный мороз
- Один, два, семь, десять, НО: 23, 101, 14 и т.д.
- Сначала нужно выучить, как пишутся простые числительные от 1 до 10.
- Принять во внимание, что числительные от 11 до 19 когда-то имели 2 корня.
- Сложные числительные при написании следует мысленно делить на части и просто вспоминать, как эти части пишутся.
- В конце всех числительных от 5 до 15 пишется буква ь. Мягкий знак во всех этих словах только один. То есть, писать «пятьнадцать», «шестьнадцать» нельзя.
- В цифре 4 при написании прописью используется две буквы е: че тыре.
- Числительные от 9 до 19 заканчиваются на –ять, -ать : девять, двадцать, восемнадцать.
- Числительные от 11 до 19 исторически образовались от сочетаний один, два, три и т. д. на десяти. Потом три слова слились в одно, при этом от слова десять осталась только сокращённая часть «-дцать», а в первом числительном сократилась последння буква, в том числе и ь . Например: три-на-дцать, четыр-на-дцать. Но в числительных 11 и 12 первая часть сохранилась полностью.
- В числительном 11 пишется две буквы н : одинн адцать .
- В числительных от 50 до 80, от 500 до 900 написание первых частей сохранилось полностью: пять+десят(ь) – пятьдесят; шесть+сот(ен) – шестьсот.
- Числительные с 6 и более нолями пишутся с двумя буквами л: миллион, триллион и т. д.
- В числительном 200 в конце пишется буква и : двести .
- Числительные 300 и 400 заканчиваются на букву а : трист-а, четырест-а.
- В числительном 1000 в форме множ. числа Р. п. не пишется мягкий знак: пятьдесят тысяч долларов.
4. Однако в заголовке в начале цифры допускаются:
5. Даты в русском языке лучше всего писать так:
6. Столетия прописываются посредством римских цифр:
7. Оформление денежных единиц максимально привлекательно и привычно выглядит так:
8. Если требуется указать процентное соотношение, пишем так:
9. Если требуется указать температуру, пишем так:
10. И еще одно правило: все числа до 10 пишем прописью, а после 10 – уже цифрами. Например:
Цифры - это то, с помощью чего информация представляется достоверной и точной. Вот почему они необходимы в рекламных и продающих текстах. Кроме того, они значительно повышают читабельность текста и помогают лучше понять и усвоить новые знания.
Написание числительных прописью
Существует три способа оформления: буквенный, цифровой и смешанный. Выбор его зависит от разряда числительного обозначаемого числа, значения существительного, при котором оно стоит, функционального стиля и жанра.
1. Буквенным способом оформляются в тексте однозначные количественные числительные во всех случаях, кроме употребления их при единицах физических величин, например: два урока, три сестры, девять морей. При единицах физических величин буквенный способ сохраняется, если величина дается словом: четыре джоуля и заменяется на цифровой, если величина дается в принятом сокращении: 4 Дж.
2. Цифровым способом оформляются количественные числительные в таблицах, схемах, диаграммах, формулах и т.п. Этим же способом оформляются порядковые числительные, если они даны римскими цифрами. Но использование римских цифр для обозначения порядковых числительных ограничено: они применяются только при существительных век, столетие, ассамблея, конгресс, съезд, конференция и подобного типа, например: XX век, XX столетие, VII съезд народных депутатов.
3. Смешанным способом могут оформляться и количественные, и порядковые числительные. Количественные числительные, обозначающие круглые числа – тысячи, миллионы, миллиарды рекомендуется писать в виде сочетания цифр с полными или сокращенными обозначениями: 30 тысяч участников, 30 млн. тонн продовольствия. Порядковые числительные, обозначаемые арабскими цифрами, имеют наращение, например: 2-е издание. Если порядковые числительные следуют одно за другим, то наращение ставят при последней цифре: в 1, 3 и 8-м пунктах. Наращение состоит из одной буквы, если предпоследняя буква гласная – в 5-м разделе, в 1-й главе и двух, если предпоследняя буква согласная – из 2-го издания. Смешанным способом могут оформляться и сложные прилагательные, если их первой частью является числительное, а второй метрическая мера, процент или другая единица величины, например: 15-литровый, 12-метровый, 20-тонный, 10-процентный.
Примечание. Недопустимы наращения при количественных числительных, обозначениях дат, а также при римских цифрах: из 25 участников, 24 мая, VII съезд.
Как писать числительные прописью
Нет ничего сложного в написании цифр: 10, 20, 17, 66 и т. д. А вот написание числительных прописью может вызывать сложности. Для этого необходимо знать некоторые правила.
Написание имен числительных прописью
Для того, чтобы правильно писать эти слова, нужно принять к сведению три основных момента:
Основные правила написания цифр словами
Правописание числительных всегда можно проверить по словарю.
Цифры прописью
Цифры прописью онлайн
Перевод числа в строку.
Как это работает?
- Для русского языка достаточно написать один алгоритм преобразования трехзначного числа от 0 до 999 в строку прописью .
- Все остальные числа, которые больше 999, необходимо разложить на несколько трехзначных чисел и обработать по отдельности каждое такое трехзначное число.
- Затем между этими трехзначными числами вставить их разряд: тысяча, миллион, миллиард и т. д.
- Также предусмотрим преобразование чисел неограниченной величины, чтобы не зависеть от математических возможностей языка программирования PHP (максимальное целое число для 32- и 64-битных систем можно посмотреть в справочнике PHP: Целые числа).
- Учтем, что в русском языке одно и тоже число в разных вариантах прописью пишется по разному, например цифра 2: два миллиона, две тысячи.
- Также учтем, что в русском языке разряды чисел, а именно их окончания, пишутся прописью тоже по разному, например, два миллиона , пять миллионов .
Число прописью на PHP
Полностью готовый и рабочий скрипт PHP Цифры прописью:
Как использовать скрипт PHP Цифры прописью?
Скачайте исходный PHP файл propis.php, вставьте его содержимое в свой скрипт или подключите файл с помощью команды: include ‘propis.php’;
Пропишите в своём скрипте: echo num_propis(5238);
Результатом выполнения будет строка: пять тысяч двеcти тридцать восемь
Смотри также: сумма прописью на javascript.
Другие сервисы и инструменты
Счет онлайн
Акт онлайн
Укажите Заказчика и Исполнителя, и получите готовый Акт
Доверенность онлайн
Укажите Получателя, доверенное лицо и получите готовую Доверенность
Выписка ЕГРЮЛ
Получить электронную выписку из налоговой инспекции
Сумма прописью
Инструмент конвертирует сумму прописью с выбором НДС и валюты
xn—-7sbfbqq4deedd2d1bu.xn--p1ai
Правильное написание цифр прописью — виды и правильное склонение
Числа, написанные прописью, часто употребляются в письменной речи. Существует группа правил русского языка, знание которых поможет всегда грамотно писать цифры и числа, независимо от сложности слов.
Обозначая цифры словами на письме, следует проявлять внимательность и не торопиться. Нужно согласовывать числительное с существительным, к которому оно относится. Чтобы правильно писать цифры прописью, нужно проявлять особое внимание также и при склонении числительных, состоящих из нескольких слов.
Быстрая навигация по статье
Виды числительных
В зависимости от смыслового значения, числительные подразделяются на:
Склонение числительных
По образцу существительных третьего склонения изменяются такие числительные, как:
Числительные, заканчивающиеся на –сот, склоняются по-особому:
Особым образом склоняются числительные «сорок», «девяносто» и «сто»:
Числительное «полтора» обладает двумя формами именительного падежа: полтора (мужской и средний род) и полторы (женский род). Форма всех косвенных падежей (кроме винительного) – полутора.
По образцу прилагательных склоняются:
Склонение сложных числительных
Прежде чем склонять числительное, состоящее из нескольких слов, необходимо определить, к какому виду оно относится:
Правила написания
Определить ситуацию, в которой нужно писать числительное прописью поможет знание следующих правил:
Правила записи числительных
Существует ещё несколько важных моментов, на которые следует обратить внимание при написании чисел:
Составление документов задача не самая простая, а все потому, что очень важно писать их грамотно. Особые сложности возникают, когда нужно написать те или иные суммы прописью онлайн. Даже те, кто отлично учился в школе, испытывают с этим затруднение. На помощь приходят , где нужно только ввести сумму (цифры), а специальная программа мгновенно переведет любое число в слова. А также, есть универсальный помощник, который не требует доступа в интернет – офисная программа Эксель.
Многие документы содержат в себе цифровую информацию, которую нужно записать или продублировать при помощи букв. В любом случае нужно преобразовать цифры в слова. Вопросов как это правильно сделать возникает очень много, а именно:
- в каких документах нужно дублирование;
- как правильно выбрать падеж;
- писать ли слова с заглавной буквы;
- возможно ли применение сокращения для рублей и копеек;
- какую часть текста брать в скобки;
- в отношении документов с разными валютами: рубли, гривны, доллары, тенге.
Важно! Очень часто, кроме списания буквенного значения цифр, необходимо прибавлять к сумме НДС. Подобные операции также можно вполне успешно проводить на онлайн-калькуляторах бесплатно.
Формы
Существует несколько форм вписания числовой информации в документ:
- цифровая. Такая используется при написании количественных числительных. Пример: Подтверждаем приемку 5 тонн цемента;
- буквенная или словесная. Такая форма применяется, если прописываемое число находится в самом начале предложения;
- буквенно-цифровая. Данный тип применяется, если нужно вписать круглые цифры. Пример: 50 тысяч рублей. Это связано с тем, что прочитать и воспринять информацию в таком виде легче.
Больше всего трудностей возникает с последними двумя формами.
Арабские или римские
В написании можно использовать римские цифры. Выбор той или иной формы зависит от традиций и величины порядковых чисел. В официальных документах сегодня чаще всего используют все же арабские числительные. Что касается римских, то ими обозначается множественное число.
Что касается указания суммы прописью, то тут необходимость перевода числового значения в буквенное связано с гарантированием точности указываемых реквизитов. Имеется в виду, что если какую-то цифру еще можно написать неверно, то сделать подобную ошибку в слове невозможно.
Обратите внимание! Если написать сумму, к примеру, в договоре числами, то сделав определенные манипуляции можно исправить ту или иную итоговую сумму, увеличив или уменьшив ее. В том случае, когда она приведена в соответствие буквами, провести подобные манипуляцию невозможно, по крайней мере, незаметно.
Юристы настоятельно рекомендуют использовать в тексте договоров, доверенностей, прочих документов, которые касаются перечисления (передачи) денежных средств именно буквенное дублирование. Причем в законах РФ данный пункт не описывается, а значит, не является обязательным к исполнению, чем часто пользуются мошенники.
Для единичных договоров можно использовать разные варианты написания. Если же компании писать договора приходится очень часто, то единую форму закрепляют в инструкции по делопроизводству. Важнее всего прописывать числа словами согласно правилам русского языка.
Используем калькуляторы
Самый простой вариант гарантированно правильно написать вашу сумму, согласно правилам правописания – это воспользоваться онлайн-калькуляторами , которые учитывают нормы перевода чисел в слова. Подобных сайтов очень много и используют они общий алгоритм работы. А также, есть калькуляторы , которые помогают вписывать правильные словесные формулировки разными языками. Причем можно найти правильные варианты: на немецком, английском. Есть варианты с автоматическим переводом заданной суммы в рубли, в разные валюты и тут же расшифровка суммы словами. Алгоритм работы с онлайн-калькуляторами:
- ввести числовое выражение суммы в первую строку формы;
- результат можно увидеть мгновенно, причем он будет соответствовать требования, к написанию указанного выше числа в финансовых документах.
Основные правила, согласно которым функционируют онлайн-калькуляторы:
- сумма всегда пишется с большой буквы;
- значение в рублях и копейках запятой не разделяется;
- рубли пишутся словами, копейки цифрой;
- целая сумма, без копеек, указывается без нулевых показателей. То есть 00 коп. после сотен или тысяч не пишут.
Пример: задаем сумму – 2 500,25 рубля. Калькулятор выдаст две тысячи пятьсот рублей 25 коп.
Использования для написания суммы прописью программы Exсel
Не всегда есть возможность использовать онлайн-переводчики. Выход – офисная программа Excel, которая есть на каждом ПК. Для порядка приведения в соответствие чисел в слова, удобно воспользоваться имеющейся для этого функцией.
Порядок использования надстройки:
- открыть программу, зайти в надстройки, перейти к сумма прописью;
- далее, в открывшемся окне нажать «обзор»;
- выбрать папку с файлом;
- нажать нужную ячейку и выбрать ее функции;
- затем, выбрать денежное выражение или просто число.
Прежде чем использовать данный вариант для документов полезно провести тест на определение возможностей функций.
Вывод
На самом деле правильно написать число прописью несложно, но для того чтобы себя перепроверить все же полезно применять многочисленные и точные программы или калькуляторы.
Очень распространенная задача написать числа прописью в Excel. Встроенной функции пока еще в Excel нет, поэтому мы можем создать пользовательскую функцию, которая и будет заменять цифры, числа текстом.
Как правило, это требуется в торговле, бухгалтерском учете и других сферах, где производятся расчеты с денежными средствами. Обычно необходимо перевести сумму в рублях и копейках прописью, как на картинке (первый пример).
Допустим, мы делаем какие-то расчеты в таблице и получаем итоговую сумму в рублях 1526,23
Нам необходимо прописать эту цифру в рублях и желательно указать так же и копейки. Для этого создадим специальную универсальную пользовательскую функцию, которая будет выглядеть следующим образом
Propis(Amount ;Money ;lang ;Prec )
Money — тут указывается вид валюты, можно указать рубли, доллары и евро («RUB» , «USD» , «EUR» ) — валюта обязательно указывается в кавычках.
lang — это язык на котором необходимо вывести сумму, доступно два языка английский и русский («EN» , «RU» ) — так же указываем в кавычках
Prec — показывать (1 ) или не показывать (0 ) дробную часть
Таким образом, вы сможете прописать сумму в рублях, долларах или евро прописью русскими или английскими буквами вместе с дробной частью, при этом в зависимости от числа будет вставляться правильное окончание, например 2 рубля, 8 рублей, 1 рубль и так далее.
Чтобы создать пользовательскую функцию Propis, необходимо скопировать код, указанный ниже, далее нажмите ALT+F11 , чтобы открыть VBA, добавьте новый пустой модуль через меню Insert — Module и вставьте туда скопированный код
Макрос пользовательской функции суммы прописью
Function Propis(Amount As String, Optional Money As String = "RUB", Optional lang As String = "RU", Optional Prec As Integer = 1) Dim whole As Double Amount = Replace(Amount, "-", Application.International(xlDecimalSeparator)) Amount = Replace(Amount, ".", Application.International(xlDecimalSeparator)) Amount = Replace(Amount, ",", Application.International(xlDecimalSeparator)) Sum = WorksheetFunction.Round(CDbl(Amount), 2) Money = UCase(Money) lang = UCase(lang) whole = Int(Sum) fraq = Format(Round((Sum - whole) * 100), "00") Select Case Class(whole, 1) + Class(whole, 2) * 10 Case 1, 21, 31, 41, 51, 61, 71, 81, 91 w_rus_r = "рубль" w_rus_d = "доллар" w_rus_e = "евро" w_en_r = "rubles" w_en_d = "dollars" w_en_e = "euro" Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64, 72, 73, 74, 82, 83, 84, 92, 93, 94 w_rus_r = "рубля" w_rus_d = "доллара" w_rus_e = "евро" w_en_r = "rubles" w_en_d = "dollars" w_en_e = "euro" Case Else w_rus_r = "рублей" w_rus_d = "долларов" w_rus_e = "евро" w_en_r = "rubles" w_en_d = "dollars" w_en_e = "euro" End Select Select Case fraq Case 1, 21, 31, 41, 51, 61, 71, 81, 91 f_rus_r = "копейка" f_rus_d = "цент" f_rus_e = "цент" f_rus_p = "сотая" f_en_r = "kopecks" f_en_d = "cents" f_en_e = "cents" f_en_e = "cents" Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64, 72, 73, 74, 82, 83, 84, 92, 93, 94 f_rus_r = "копейки" f_rus_d = "цента" f_rus_e = "цента" f_en_r = "kopecks" f_en_d = "cents" f_en_e = "cents" Case Else f_rus_r = "копеек" f_rus_d = "центов" f_rus_e = "центов" f_en_r = "kopecks" f_en_d = "cents" f_en_e = "cents" End Select If Prec = 0 Then fraq = "" f_rus_r = "" f_rus_d = "" f_rus_e = "" f_en_r = "" f_en_d = "" f_en_e = "" End If If lang = "RU" Then Select Case Money Case "RUB" Out = ScriptRus(whole) & " " & w_rus_r & " " & fraq & " " & f_rus_r Case "USD" Out = ScriptRus(whole) & " " & w_rus_d & " " & fraq & " " & f_rus_d Case "EUR" Out = ScriptRus(whole) & " " & w_rus_e & " " & fraq & " " & f_rus_e End Select End If If lang = "EN" Then Select Case Money Case "RUB" Out = ScriptEng(whole) & " " & w_en_r & " " & fraq & " " & f_en_r Case "USD" Out = ScriptEng(whole) & " " & w_en_d & " " & fraq & " " & f_en_d Case "EUR" Out = ScriptEng(whole) & " " & w_en_e & " " & fraq & " " & f_en_e End Select End If Propis = WorksheetFunction.Trim(Out) End Function Private Function Class(m, i) Class = Int(Int(m - (10 ^ i) * Int(m / (10 ^ i))) / 10 ^ (i - 1)) End Function Private Function ScriptRus(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") Nums2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ") Nums3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ") Nums4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") Nums5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ") If n = 0 Then ScriptRus = "Ноль" Exit Function End If ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class(n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil = Class(n, 8) sotmil = Class(n, 9) mlrd = Class(n, 10) If mlrd > 0 Then Select Case mlrd Case 1 mlrd_txt = Nums1(mlrd) & "миллиард " Case 2, 3, 4 mlrd_txt = Nums1(mlrd) & "миллиарда " Case 5 To 20 mlrd_txt = Nums1(mlrd) & "миллиардов " End Select End If If (sotmil + decmil + mil) > 0 Then sotmil_txt = Nums3(sotmil) Select Case decmil Case 1 mil_txt = Nums5(mil) & "миллионов " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select Select Case mil Case 1 mil_txt = Nums1(mil) & "миллион " Case 2, 3, 4 mil_txt = Nums1(mil) & "миллиона " Case 0, 5 To 20 mil_txt = Nums1(mil) & "миллионов " End Select End If www: sottys_txt = Nums3(sottys) Select Case dectys Case 1 tys_txt = Nums5(tys) & "тысяч " GoTo eee Case 2 To 9 dectys_txt = Nums2(dectys) End Select Select Case tys Case 0 If dectys > 0 Then tys_txt = Nums4(tys) & "тысяч " Case 1 tys_txt = Nums4(tys) & "тысяча " Case 2, 3, 4 tys_txt = Nums4(tys) & "тысячи " Case 5 To 9 tys_txt = Nums4(tys) & "тысяч " End Select If dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & " тысяч " eee: sot_txt = Nums3(sot) Select Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1(ed) rrr: ScriptRus = mlrd_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt ScriptRus = UCase(Left(ScriptRus, 1)) & LCase(Mid(ScriptRus, 2, Len(ScriptRus) - 1)) End Function Private Function ScriptEng(ByVal Number As Double) Dim BigDenom As String, Temp As String Dim Count As Integer ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " strAmount = Trim(Str(Int(Number))) Count = 1 Do While strAmount <> "" Temp = GetHundreds(Right(strAmount, 3)) If Temp <> "" Then BigDenom = Temp & Place(Count) & BigDenom If Len(strAmount) > 3 Then strAmount = Left(strAmount, Len(strAmount) - 3) Else strAmount = "" End If Count = Count + 1 Loop Select Case BigDenom Case "" BigDenom = "Zero " Case "One" BigDenom = "One " Case Else BigDenom = BigDenom & " " End Select ScriptEng = BigDenom End Function Private Function GetHundreds(ByVal MyNumber) Dim result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Mid(MyNumber, 1, 1) <> "0" Then result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If If Mid(MyNumber, 1, 1) <> "0" And (Mid(MyNumber, 2, 1) <> "0" Or Mid(MyNumber, 3, 1) <> "0") Then result = result & "And " End If If Mid(MyNumber, 2, 1) <> "0" Then result = result & GetTens(Mid(MyNumber, 2)) Else result = result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = result End Function Private Function GetTens(TensText) Dim result As String result = "" If Val(Left(TensText, 1)) = 1 Then Select Case Val(TensText) Case 10: result = "Ten" Case 11: result = "Eleven" Case 12: result = "Twelve" Case 13: result = "Thirteen" Case 14: result = "Fourteen" Case 15: result = "Fifteen" Case 16: result = "Sixteen" Case 17: result = "Seventeen" Case 18: result = "Eighteen" Case 19: result = "Nineteen" Case Else End Select Else Select Case Val(Left(TensText, 1)) Case 2: result = "Twenty " Case 3: result = "Thirty " Case 4: result = "Forty " Case 5: result = "Fifty " Case 6: result = "Sixty " Case 7: result = "Seventy " Case 8: result = "Eighty " Case 9: result = "Ninety " Case Else End Select result = result & GetDigit _ (Right(TensText, 1)) End If GetTens = result End Function Private Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End FunctionИтак, функция создана, чтобы воспользоваться ей, просто введите ячейке Propis с нужными аргументами, например, если нам необходимо прописать сумму прописью в рублях с копейками и на русском языке, то формула будет выглядеть следующим образом.
Propis(B2;"RUB";"RU";1)
Числа прописью с копейками заглавными или строчными буквами в Excel
Вот код VBA для пользовательской функции. Отображение суммы прописью с копейками и выбором первой заглавной или строчной буквы
Function РубПропись(Сумма As Double, Optional Без_копеек As Boolean = False, _ Optional КопПрописью As Boolean = False, Optional начинитьПрописной As Boolean = True) As String "Функция для написания суммы прописью Dim ed, des, sot, ten, razr, dec Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim mlnEnd, tscEnd, razrEnd, rub, cop dec = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") ten = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ") des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ") sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ") razr = Array("", "тысяч", "миллион", "миллиард") mlnEnd = Array("ов ", " ", "а ", "а ", "а ", "ов ", "ов ", "ов ", "ов ", "ов ") tscEnd = Array(" ", "а ", "и ", "и ", "и ", " ", " ", " ", " ", " ") razrEnd = Array(mlnEnd, mlnEnd, tscEnd, "") rub = Array("рублей", "рубль", "рубля", "рубля", "рубля", "рублей", "рублей", "рублей", "рублей", "рублей") cop = Array("копеек", "копейка", "копейки", "копейки", "копейки", "копеек", "копеек", "копеек", "копеек", "копеек") If Сумма >= 1000000000000# Or Сумма < 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Then intPart = Left$(Format(Сумма, "000000000000.00"), 12) For i = 0 To 3 s = Mid$(intPart, i * 3 + 1, 3) If s <> "000" Then str = str & sot(CInt(Left$(s, 1))) If Mid$(s, 2, 1) = "1" Then str = str & ten(CInt(Right$(s, 1))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$(s, 1)))) End If On Error Resume Next str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) On Error GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = "1", rub(0), rub(CInt(Right$(s, 1)))) End If РубПропись = str """""""""""""""""" If Без_копеек = False Then frPart = Right$(Format(Сумма, "0.00"), 2) If frPart = "00" Then frPart = "" Else If КопПрописью Then frPart = IIf(Left$(frPart, 1) = "1", ten(CInt(Right$(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$(frPart, 1)))) Else frPart = IIf(Left$(frPart, 1) = "1", frPart & " " & cop(0), frPart & " " & cop(CInt(Right$(frPart, 1)))) End If End If РубПропись = str & " " & frPart End If """""""""""""""""" " РубПропись = str & frPart If начинитьПрописной Then Mid$(РубПропись, 1, 1) = UCase(Mid$(РубПропись, 1, 1)) " If начинитьПрописной Then РубПропись = UCase(Left(РубПропись, 1)) & Mid(РубПропись, 2) End Function
- Без копеек (1), с копейками (0)
- Копейки прописью (1), числом (0)
- Начинать прописью (0), заглавной (1)
Вот как используется функция
Примечание
- Данная функция будет работать с числами от 0 до 99 999 999
- Перед копирование кода переключите раскладку клавиатуры на русский язык (для корректного копирования русского текста)
- Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала
- После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
- Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)