Сумма (число) 12 прописью:

four thousand, seven hundred and forty-one ruble and thirteen kopeck

Начислить НДС на сумму 4741.13:

Сумма НДС 18% (Россия) = 853.40 прописью:

На русском языке: восемьсот пятьдесят три рубля сорок копеек На английском языке: eight hundred and fifty-three rubles and forty kopecks

Сумма 4741.13 с НДС 18% (Россия) = 5594.53 прописью:

На русском языке: пять тысяч пятьсот девяносто четыре рубля пятьдесят три копейки На английском языке: five thousand, five hundred and ninety-four rubles and fifty-three kopecks

Сумма НДС 10% (Россия) = 474.11 прописью:

На русском языке: четыреста семьдесят четыре рубля одиннадцать копеек На английском языке: four hundred and seventy-four rubles and eleven kopecks

Сумма 4741.13 с НДС 10% (Россия) = 5215.24 прописью:

На русском языке: пять тысяч двести пятнадцать рублей двадцать четыре копейки На английском языке: five thousand, two hundred and fifteen rubles and twenty-four kopecks

Сумма НДС 12% (Казахстан) = 568.94 прописью:

На русском языке: пятьсот шестьдесят восемь рублей девяносто четыре копейки На английском языке: five hundred and sixty-eight rubles and ninety-four kopecks

Сумма 4741.13 с НДС 12% (Казахстан) = 5310.07 прописью:

На русском языке: пять тысяч триста десять рублей семь копеек На английском языке: five thousand, three hundred and ten rubles and zero kopecks

Сумма НДС 20% (Украина) = 948.23 прописью:

На русском языке: девятьсот сорок восемь рублей двадцать три копейки На английском языке: nine hundred and forty-eight rubles and twenty-three kopecks

Сумма 4741.13 с НДС 20% (Украина) = 5689.36 прописью:

На русском языке: пять тысяч шестьсот восемьдесят девять рублей тридцать шесть копеек На английском языке: five thousand, six hundred and eighty-nine rubles and thirty-six kopecks

Выделить НДС из суммы 4741.13:

Сумма НДС 18% (Россия) = 723.22 прописью:

На русском языке: семьсот двадцать три рубля двадцать две копейки На английском языке: seven hundred and twenty-three rubles and twenty-two kopecks

Сумма 4741.13 без НДС 18% (Россия) = 4017.91 прописью:

На русском языке: четыре тысячи семнадцать рублей девяносто одна копейка На английском языке: four thousand and seventeen rubles and ninety-one kopecks

Сумма НДС 10% (Россия) = 431.01 прописью:

На русском языке: четыреста тридцать один рубль одна копейка На английском языке: four hundred and thirty-one ruble and zero kopeck

Сумма 4741.13 без НДС 10% (Россия) = 4310.12 прописью:

На русском языке: четыре тысячи триста десять рублей двенадцать копеек На английском языке: four thousand, three hundred and ten rubles and twelve kopecks

Сумма НДС 12% (Казахстан) = 507.98 прописью:

На русском языке: пятьсот семь рублей девяносто восемь копеек На английском языке: five hundred and seven rubles and ninety-eight kopecks

Сумма 4741.13 без НДС 12% (Казахстан) = 4233.15 прописью:

На русском языке: четыре тысячи двести тридцать три рубля пятнадцать копеек На английском языке: four thousand, two hundred and thirty-three rubles and fifteen kopecks

Сумма НДС 20% (Украина) = 790.19 прописью:

На русском языке: семьсот девяносто рублей девятнадцать копеек На английском языке: seven hundred and ninety rubles and nineteen kopecks

Сумма 4741.13 без НДС 20% (Украина) = 3950.94 прописью:

На русском языке: три тысячи девятьсот пятьдесят рублей девяносто четыре копейки На английском языке: three thousand, nine hundred and fifty rubles and ninety-four kopecks

  • ← 4741.12
  • 4741.14 →

Вставка кода в стандартный модуль

  • Создайте новый стандартный модуль и откройте его (или откройте уже имеющийся).
  • Скопируйте и вставьте в открытый модуль код функции «ДатаПрописью», приведенный ниже.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

‘Преобразование даты из числового формата в текст с 2001 по 2099 год

PublicFunctionДатаПрописью(md AsDate)AsString

If(md<36892)Or(md>73050)Then

ДатаПрописью=»Преобразуемая дата должна быть с 2001 по 2099 год!»

Else

Dimden AsByte,dg(1To4)AsByte,mes AsByte,god AsByte,_

mespr AsString,dmgpr AsString

den=Day(md)

mes=Month(md)

god=(Year(md)Mod100)

dg(1)=god Mod10

dg(2)=Fix(god10)

dg(3)=den Mod10

dg(4)=Fix(den10)

Dimdgpr(1To4)AsString,i1 AsByte

Fori1=1To4

If(i1=1)Or(i1=3)Then

Ifdg(i1+1)=1Then

dgpr(i1)=Choose(dg(i1)+1,»десятого «,»одиннадцатого «,»двенадцатого «,_

«тринадцатого «,»четырнадцатого «,»пятнадцатого «,»шестнадцатого «,_

«семнадцатого «,»восемнадцатого «,»девятнадцатого «)

Else

dgpr(i1)=Choose(dg(i1)+1,»»,»первого «,»второго «,_

«третьего «,»четвертого «,»пятого «,»шестого «,_

«седьмого «,»восьмого «,»девятого «)

EndIf

ElseIf(i1=2)Or(i1=4)Then

Ifdg(i1-1)=Then

dgpr(i1)=Choose(dg(i1)+1,»»,»»,»двадцатого «,_

«тридцатого «,»сорокового «,»пятидесятого «,»шестидесятого «,_

«семидесятого «,»восьмидесятого «,»девяностого «)

Else

dgpr(i1)=Choose(dg(i1)+1,»»,»»,»двадцать «,_

«тридцать «,»сорок «,»пятьдесят «,»шестьдесят «,_

«семьдесят «,»восемьдесят «,»девяносто «)

EndIf

EndIf

Next

mespr=Choose(mes,»января «,»февраля «,»марта «,»апреля «,»мая «,_

«июня «,»июля «,»августа «,»сентября «,»октября «,»ноября «,»декабря «)

dmgpr=dgpr(4)&dgpr(3)&mespr&»две тысячи «&dgpr(2)&dgpr(1)&»года»

ДатаПрописью=Replace(dmgpr,Left(dmgpr,1),UCase(Left(dmgpr,1)),1,1)

EndIf

EndFunction

Если вы хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, вставьте приведенный код в модуль, расположенный в Личной книге макросов.

Оцените статью
Рейтинг автора
5
Материал подготовил
Илья Коршунов
Наш эксперт
Написано статей
134
Добавить комментарий