Как правильно написать цифры прописью. Как правильно писать цифры прописью. Как работает калькулятор «Сумма прописью онлайн»
Инструкция
В первичных учетных документах сначала записывается сумма цифрами, где указываются р. и копейки, доллары и центы, евро и евроценты и т.д. Например: 1278 р. 13 коп., 1287,46 США, 1256,43 евро. Далее открывается , начинается запись с прописной . Полностью прописываются р., доллары, евро. В цифровом значении остаются копейки, центы США и евроценты. Запись закрывается скобкой. Например: 1256 р. 43 коп. (Одна тысяча двести семьдесят восемь р. 13 копеек), 1287,46 долларов США (Одна тысяча двести восемьдесят семь долларов США 46 центов США), 1256,43 евро (Одна тысяча двести пятьдесят шесть евро 43 евроцента). Заметьте, часть с выражением в р., евро в именительном падеже.
Можно использовать способ, в котором цифровое значение копеек, центов и евроцентов пишется только один раз вне скобок. Например: 2178 (Две тысячи сто семьдесят восемь) р. 43 коп. Здесь можно применить полное и сокращенное название «р.» и «копеек», но единообразное.
Не исключается и такой вариант написания суммы: указание копеек, центов и евроцентов в цифровом значении через дробную черту с числом 100. Например: «Ваша задолженность по договору №10035 составляет 11239,61 (одиннадцать тысяч двести тридцать девять 61/100) евро».
Использование родительного падежа в расшифровке суммы необходимо при указании пределов суммы. Например: «не менее 5 млн. (Пяти миллионов) р.», «не более 4000 (Четырех тысяч) евро».
Обратите внимание
При составлении документа необходимо проверять, указана ли валюта после скобок, т.к может возникнуть противоречие. Например: «17669,58 (семнадцать тысяч шестьсот шестьдесят р. пятьдесят восемь копеек)» В расшифровке речь идет о р., а в документе это могут быть доллары или евро. Поэтому правильно эту запись необходимо писать так: «17669,58 р. (семнадцать тысяч шестьсот шестьдесят р. пятьдесят восемь копеек)»
Источники:
- как писать цифры прописью
Сегодня постоянно приходится сталкиваться с необходимостью прописать цифры буквами или словами. Особенно часто такая нужда возникает, когда требуется, например, в накладной или платежной ведомости придать денежным суммам, обозначенным цифрами, словесную форму. Для того, чтобы сделать это, стоит помнить следующие важные моменты.
Вам понадобится
- Любой грамматический справочник по русскому языку, например: Камынина А.А. Современный русский язык. Морфология (ссылку в интернете см. внизу).
Инструкция
Помните, что числительные (т.е. словесные эквиваленты цифр и чисел), обозначающие 300 и 400, оканчиваются на -ста. Помните, что числительные, кратные ста (от 500 до 900), имеют всегда перед частью -сот составного мягкий знак (-ь-): пят-ь-сот, шест-ь-сот и т.д.
«Все должны до одного
Цифры знать до цифры пять -
Ну, хотя бы для того,
Чтоб отметки отличать»В. Высоцкий
«Алиса в Стране Чудес»
Перефразируя слова известного поэта, можно сказать, что каждый должен знать не просто цифры, но и то, как правильно пишутся числа , состоящие из этих самых цифр и столь часто употребляемые в различных документах. Чтобы разобраться, когда и как пишутся числа в тексте отдельных документов, надо сначала понять, какие формы написания чисел в тексте используются.
Существуют три формы написания чисел в тексте:
цифровая;
буквенная (словесная);
буквенно-цифровая.
В цифровой форме пишутся преимущественно количественные числительные, например, «Подтверждаем, что нашим предприятием было получено 3 тонны цемента».
В словесной форме пишутся все числа, с которых начинается предложение, особенно первое в абзаце, например: «Десять станков необходимо отправить в филиал предприятия «Экотехника» в г. Псков».
Буквенно-цифровая форма представления чисел предпочтительнее тогда, когда приводятся крупные круглые цифры. Например, 50 млрд рублей, 50 тыс. руб., 10 млн рублей прочитать легче, чем 50 000 000 000 рублей.
Арабские и римские цифры
При написании чисел используются арабские или римские цифры. Выбор того или иного вида цифр определяется главным образом традицией или величиной порядковых чисел. Согласитесь, что никто не будет оспаривать неудобство использования римских цифр при обозначении больших чисел.
В наше время в текстах документов используются, как правило, арабские цифры. Но и числительные, обозначаемые римскими цифрами, имеют место быть. Следует иметь ввиду, что римскими цифрами не обозначается множественное число.
Порядковые числительные, обозначаемые арабскими цифрами, пишутся с наращением: «80-е годы». Падежное окончание в порядковых числительных должно быть однобуквенным или двубуквенным.
Однобуквенные окончания пишутся тогда, когда последней букве числительного предшествует гласный звук. Например, 4-й (четвертый), 4-я (четвертая), 5-е (пятое, пятые), 5-м (пятом, пятым).
Двубуквенные окончания используют, если последней букве числительного предшествует согласный звук. Например, 5-го, 5-му, 6-му.
При написании порядковых числительных гораздо реже могут использоваться римские цифры, которые в этом случае пишутся без наращения: «специалист II категории», «юрисконсульт I категории».
Сложные существительные и прилагательные, имеющие в своем составе числительные, пишутся следующим образом:
-
3-месячный срок,
10-процентный,
3-дневный.
Но все это касается правил русского языка, которые надо знать и помнить всегда при использовании чисел в тексте документа. Нас же интересует вопрос, в каких случаях и в каких документах сумма, написанная цифрами, требует ее последующего указания прописью. Это вопрос, можно сказать, исторический.
Впервые в мировой истории постановление о том, что во всех документах цифры должны писаться прописью, а не арабскими цифрами, было принято в 1299 году во Флоренции. Однако этот запрет на арабские цифры был наложен не только из-за того, что цифры легче исправить, чем слова, но и из-за того, что новые тогда для Европы арабские цифры многие жители рассматривали как подозрительную «арабскую магию».
Указание суммы прописью
В наше время использование расшифровки чисел необходимо для того, чтобы обезопасить себя от различных проблем, которые могут возникнуть по вине невнимательного исполнителя (просто ошибся) или «по вине» контрагента, который сознательно увеличил сумму договора путем приписки нескольких цифр к ранее указанной сумме. Что же касается такого «креативного творчества» в договорах, то следует помнить, что договор - это палка о двух концах, которая может больно ударить любую из сторон. Поэтому вопрос о том, нужно ли прописывать суммы прописью в договорах, доверенностях, письмах, имеющих отношение к перечислению денежных средств, стоять не должен. А вот разобраться с тем, как правильно прописывать эти суммы , стоит. При этом Гражданский кодекс РФ не содержит никаких ссылок на то, как эти суммы должны прописываться в договорах, доверенностях.
Сначала остановимся на бухгалтерских документах. Здесь все более или менее понятно. Как правило, основная масса документов, которые приходится заполнять сотрудникам, является первичными учетными документами. Правила работы с ними регламентируются Федеральным законом от 21.11.1996 г. № 129-ФЗ «О бухгалтерском учете». Первичные учетные документы делятся на:
документы, формы которых утверждены постановлениями Госкомстата РФ;
на документы, формы которых не утверждены, но тогда они в обязательном порядке должны содержать необходимый минимум реквизитов, указанных в законе о бухгалтерском учете. Один из обязательных реквизитов таких документов - измерители хозяйственной операции в натуральном выражении и денежном выражении. При этом закон не содержит явной ссылки на необходимость расшифровки денежного выражения.
Многие утвержденные формы первичных учетных документов содержат не только строки с указанием сумм, но и строки для их расшифровки прописью. В соответствии с постановлением Госкомстата РФ от 24.03.1999 г. № 20 «Об утверждении порядка применения унифицированных форм первичной учетной документации» удаление отдельных реквизитов из унифицированных форм не допускается. А это означает, что заполнение реквизитов по указанию сумм и их расшифровка являются обязательными. Порядок заполнения данных реквизитов не установлен. Хотя в бухгалтерских документах он практически не вызывает затруднений.
Анализируя формы утвержденных первичных учетных документов, можно сделать вывод о том, что в тех документах, где суммы необходимо прописывать , это делается в следующем порядке (см. Пример 1):
указывается сумма в цифровом выражении,
а затем данная сумма повторяется прописью, при этом копейки обозначаются цифрами.
|
С.Ю. Козлова, ведущий юрист ОАО «Оптима иКСчейндж Сервисез» (OXS): Хотя ныне действующий закон от 21.11.1996 г. № 129-ФЗ «О бухгалтерском учете» и был принят вслед за Гражданским кодексом, с момента его вступления в силу прошло почти 11 лет. За это время российская экономика изменилась коренным образом. Благодаря внесению соответствующих изменений в законодательные акты появились новые субъекты бухгалтерского учета (адвокаты, осуществляющие адвокатскую деятельность в адвокатском кабинете), расширился круг органов, уполномоченных осуществлять регулирование бухгалтерского учета. Последнее обстоятельство, в свою очередь, явилось следствием ослабления влияния государства на экономику страны и усиления экономической независимости субъектов предпринимательства. И, наконец, немаловажную роль стало играть и то, что Россия, желая войти в качестве равноправного участника в мировое экономическое сообщество, осуществляет постепенный переход к ведению бухгалтерской и финансовой отчетности в соответствии с международными стандартами (МСФО, US GAAP). Все это нашло свое отражение в проекте нового закона «Об официальном бухгалтерском учете», который находится на рассмотрении в Госдуме. Но сейчас применительно к рассматриваемой нами теме нам будет интересно одно существенное изменение, которое коснулось первичных учетных документов (т.н. «первички»). Проект закона возлагает на руководителя организации обязанность по утверждению форм первичных учетных документов. Утверждение осуществляется по представлению лица, на которое возложено ведение бухгалтерского учета.
По всей видимости, принятие нового закона предполагает отказ от применения унифицированных форм. Каждый экономический субъект будет вправе утверждать формы первичных учетных документов, необходимых для ведения бухгалтерского учета в этом конкретном экономическом субъекте. Непременным условием утверждения и дальнейшего использования таких форм является наличие обязательных реквизитов, перечень которых в целом соответствует содержащимся в пункте 2 статьи 9 действующего закона «О бухгалтерском учете». |
При этом в именительном падеже
прописью указывается только та часть суммы, которая выражена в рублях. Во избежание приписок первое слово необходимо начинать с большой буквы
, а в соответствии с п. 2.9 «Положения о документах и документообороте бухгалтерских документов», утвержденных Министерством финансов СССР от 29.07.1983 г.
№ 105 «свободные строки в первичных документах подлежат обязательному прочерку».
Не только в бухгалтерских документах, но и в договорах, доверенностях при составлении указываются суммы, которые необходимо повторять прописью .
Порядок расшифровки суммы договора или суммы, указанной в доверенности, как мы отмечали выше, не регламентируется Гражданским кодексом РФ. Но принцип написания сумм прописью остается общим для всех документов: сначала указываем сумму в цифровым способом, а затем - прописью в именительном падеже с большой буквы. Но и здесь возможны вариации:
Исходя из практики делового оборота можно рекомендовать следующий наиболее распространенный способ, при котором сначала полностью прописывается сумма в цифровом выражении, включая рубли и копейки, а затем она повторяется, но уже прописью (см. Пример 1).
Но на практике встречается и другой способ. Сначала прописывается сумма , которая отражает рубли, в цифровом выражении и прописью в скобках, а затем копейки указываются только один раз в цифровом выражении:
В договорах вы можете встретить еще один способ расшифровки суммы , например, «17 363,00 (Семнадцать тысяч триста шестьдесят три рубля 00 копеек)». С точки зрения логики здесь есть противоречие. Вторая часть (расшифровка) должна полностью соответствовать первой части (цифровому выражению). В данном примере в первой части отсутствует ссылка на валюту, тогда почему при расшифровке указаны именно рубли, а, к примеру, не доллары США или евро? Добавив в первую часть слово «руб.», мы получим модификацию первого из перечисленных допустимых вариантов: «17 363,00 руб. (Семнадцать тысяч триста шестьдесят три рубля 00 копеек)».
Использовать ли слова «рубли» и «копейки» или употреблять их сокращенные варианты («руб.», «коп.»), вы можете решить для себя самостоятельно. Принципиального значения это не имеет. Главное, чтобы было единообразие: указав слово «рубли» полностью, аналогично поступите и со словом «копейки». Причем способы указания копеек (центов, евроцентов) тоже могут быть разными, что особенно характерно для международных контрактов.
При этом хотелось бы обратить внимание читателей на то, что использовать можно любой из перечисленных способов расшифровки сумм в договоре , доверенности, письме или другом документе (кроме бухгалтерских). Какой из них выбрать, вы можете определить сами, т.к. законодательно никакой из этих способов не закреплен. Самое главное, чтобы цифровое выражение суммы соответствовало тому, что указано прописью.
Если все-таки организация хочет ввести единообразие в порядок написания сумм в различных документах, то это можно закрепить в Инструкции по делопроизводству, где, например, обычно прописывается порядок написания даты документа. При этом следует помнить, что Инструкция по делопроизводству является локальным нормативным актом организации, и, следовательно, обязать контрагента по договору прописать сумму так, как это закреплено в вашей Инструкции по делопроизводству, вы не сможете. Здесь важно, чтобы стороны договорились о любом правильном написании чисел и их расшифровке.
Мы рассмотрели варианты, когда сумма в различных документах указывается четко. Но на практике очень часто при выдаче доверенностей на право подписания определенных договоров указывается предел суммы, свыше которого доверяемый не может заключать договоры. В этом случае расшифровка суммы пишется в родительном падеже, т.к. она следует за словами «не более», «не менее». Например, «не более 2 000 000 (Двух миллионов) рублей».
Аналогичная ситуация возникает при расшифровке прописью иных чисел, например, количества банковских дней или объема авторских листов (сумма прописью подлежит склонению):
* * *
Таким образом, анализ возможных вариантов расшифровки чисел прописью позволяет сделать вывод о том, что на сегодня этот вопрос законодательно не урегулирован. А раз так, то можно рекомендовать разработчикам нового ГОСТа по делопроизводству включить такой раздел в новую редакцию ГОСТа и попытаться расставить все точки над «и», чтобы каждый из нас, подобно Алисе из страны Чудес, мог сказать:
«До мильона далеко,
Но сначала нужно знать,
То, что просто и легко, -
Раз, два, три, четыре, пять».
А пока автор статьи надеется, что рассмотренные примеры написания чисел , основанные на многолетнем опыте работы с документами и практике делового оборота, помогут многим сотрудникам справиться с этой задачей.
Очень распространенная задача написать числа прописью в 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 в строке формул, категория Определенные пользователем)
* введите требуемое число, используя, запятую, как разделитель
В рублях
Ноль рублей 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 копейки).