600 прописом:
Шістсот
600 прописом англійською: in words 600 — Six hundred
600 прописом іспанською: en palabras 600 — Seiscientos
600 прописом німецькою: in Worten 600 — Sechshundert
600 прописом французькою: par écrit 600 — Six-cents
600 прописом португальською: em palavras 600 — Seiscentos
600 прописом італійською: in lettere 600 — Seicento
600 прописом російською: прописью 600 — Шестьсот
601 прописом:
Шістсот один
601 прописом англійською: in words 601 — Six hundred one
601 прописом іспанською: en palabras 601 — Seiscientos uno
601 прописом німецькою: in Worten 601 — Sechshunderteins
601 прописом французькою: par écrit 601 — Six-cent-un
601 прописом португальською: em palavras 601 — Seiscentos e um
601 прописом італійською: in lettere 601 — Seicentouno
601 прописом російською: прописью 601 — Шестьсот один
Сума 601 прописом
602 прописом:
Шістсот два
602 прописом англійською: in words 602 — Six hundred two
602 прописом іспанською: en palabras 602 — Seiscientos dos
602 прописом німецькою: in Worten 602 — Sechshundertzwei
602 прописом французькою: par écrit 602 — Six-cent-deux
602 прописом португальською: em palavras 602 — Seiscentos e dois
602 прописом італійською: in lettere 602 — Seicentodue
602 прописом російською: прописью 602 — Шестьсот два
Сума 602 прописом
603 прописом:
Шістсот три
603 прописом англійською: in words 603 — Six hundred three
603 прописом іспанською: en palabras 603 — Seiscientos tres
603 прописом німецькою: in Worten 603 — Sechshundertdrei
603 прописом французькою: par écrit 603 — Six-cent-trois
603 прописом португальською: em palavras 603 — Seiscentos e três
603 прописом італійською: in lettere 603 — Seicentotre
603 прописом російською: прописью 603 — Шестьсот три
Сума 603 прописом
604 прописом:
Шістсот чотири
604 прописом англійською: in words 604 — Six hundred four
604 прописом іспанською: en palabras 604 — Seiscientos cuatro
604 прописом німецькою: in Worten 604 — Sechshundertvier
604 прописом французькою: par écrit 604 — Six-cent-quatre
604 прописом португальською: em palavras 604 — Seiscentos e quatro
604 прописом італійською: in lettere 604 — Seicentoquattro
604 прописом російською: прописью 604 — Шестьсот четыре
Сума 604 прописом
605 прописом:
Шістсот п’ять
605 прописом англійською: in words 605 — Six hundred five
605 прописом іспанською: en palabras 605 — Seiscientos cinco
605 прописом німецькою: in Worten 605 — Sechshundertfünf
605 прописом французькою: par écrit 605 — Six-cent-cinq
605 прописом португальською: em palavras 605 — Seiscentos e cinco
605 прописом італійською: in lettere 605 — Seicentocinque
605 прописом російською: прописью 605 — Шестьсот пять
Сума 605 прописом
606 прописом:
Шістсот шість
606 прописом англійською: in words 606 — Six hundred six
606 прописом іспанською: en palabras 606 — Seiscientos seis
606 прописом німецькою: in Worten 606 — Sechshundertsechs
606 прописом французькою: par écrit 606 — Six-cent-six
606 прописом португальською: em palavras 606 — Seiscentos e seis
606 прописом італійською: in lettere 606 — Seicentosei
606 прописом російською: прописью 606 — Шестьсот шесть
Сума 606 прописом
607 прописом:
Шістсот сім
607 прописом англійською: in words 607 — Six hundred seven
607 прописом іспанською: en palabras 607 — Seiscientos siete
607 прописом німецькою: in Worten 607 — Sechshundertsieben
607 прописом французькою: par écrit 607 — Six-cent-sept
607 прописом португальською: em palavras 607 — Seiscentos e sete
607 прописом італійською: in lettere 607 — Seicentosette
607 прописом російською: прописью 607 — Шестьсот семь
Сума 607 прописом
608 прописом:
Шістсот вісім
608 прописом англійською: in words 608 — Six hundred eight
608 прописом іспанською: en palabras 608 — Seiscientos ocho
608 прописом німецькою: in Worten 608 — Sechshundertacht
608 прописом французькою: par écrit 608 — Six-cent-huit
608 прописом португальською: em palavras 608 — Seiscentos e oito
608 прописом італійською: in lettere 608 — Seicentotto
608 прописом російською: прописью 608 — Шестьсот восемь
Сума 608 прописом
609 прописом:
Шістсот дев’ять
609 прописом англійською: in words 609 — Six hundred nine
609 прописом іспанською: en palabras 609 — Seiscientos nueve
609 прописом німецькою: in Worten 609 — Sechshundertneun
609 прописом французькою: par écrit 609 — Six-cent-neuf
609 прописом португальською: em palavras 609 — Seiscentos e nove
609 прописом італійською: in lettere 609 — Seicentonove
609 прописом російською: прописью 609 — Шестьсот девять
Сума 609 прописом
610 прописом:
Шістсот десять
610 прописом англійською: in words 610 — Six hundred ten
610 прописом іспанською: en palabras 610 — Seiscientos diez
610 прописом німецькою: in Worten 610 — Sechshundertzehn
610 прописом французькою: par écrit 610 — Six-cent-dix
610 прописом португальською: em palavras 610 — Seiscentos e dez
610 прописом італійською: in lettere 610 — Seicentodieci
610 прописом російською: прописью 610 — Шестьсот десять
Сума 610 прописом
611 прописом:
Шістсот одинадцять
611 прописом англійською: in words 611 — Six hundred eleven
611 прописом іспанською: en palabras 611 — Seiscientos once
611 прописом німецькою: in Worten 611 — Sechshundertelf
611 прописом французькою: par écrit 611 — Six-cent-onze
611 прописом португальською: em palavras 611 — Seiscentos e onze
611 прописом італійською: in lettere 611 — Seicentoundici
611 прописом російською: прописью 611 — Шестьсот одиннадцать
Сума 611 прописом
612 прописом:
Шістсот дванадцять
612 прописом англійською: in words 612 — Six hundred twelve
612 прописом іспанською: en palabras 612 — Seiscientos doce
612 прописом німецькою: in Worten 612 — Sechshundertzwölf
612 прописом французькою: par écrit 612 — Six-cent-douze
612 прописом португальською: em palavras 612 — Seiscentos e doze
612 прописом італійською: in lettere 612 — Seicentododici
612 прописом російською: прописью 612 — Шестьсот двенадцать
Сума 612 прописом
613 прописом:
Шістсот тринадцять
613 прописом англійською: in words 613 — Six hundred thirteen
613 прописом іспанською: en palabras 613 — Seiscientos trece
613 прописом німецькою: in Worten 613 — Sechshundertdreizehn
613 прописом французькою: par écrit 613 — Six-cent-treize
613 прописом португальською: em palavras 613 — Seiscentos e treze
613 прописом італійською: in lettere 613 — Seicentotredici
613 прописом російською: прописью 613 — Шестьсот тринадцать
Сума 613 прописом
614 прописом:
Шістсот чотирнадцять
614 прописом англійською: in words 614 — Six hundred fourteen
614 прописом іспанською: en palabras 614 — Seiscientos catorce
614 прописом німецькою: in Worten 614 — Sechshundertvierzehn
614 прописом французькою: par écrit 614 — Six-cent-quatorze
614 прописом португальською: em palavras 614 — Seiscentos e quartorze
614 прописом італійською: in lettere 614 — Seicentoquattordici
614 прописом російською: прописью 614 — Шестьсот четырнадцать
Сума 614 прописом
615 прописом:
Шістсот п’ятнадцять
615 прописом англійською: in words 615 — Six hundred fifteen
615 прописом іспанською: en palabras 615 — Seiscientos quince
615 прописом німецькою: in Worten 615 — Sechshundertfünfzehn
615 прописом французькою: par écrit 615 — Six-cent-quinze
615 прописом португальською: em palavras 615 — Seiscentos e quinze
615 прописом італійською: in lettere 615 — Seicentoquindici
615 прописом російською: прописью 615 — Шестьсот пятнадцать
Сума 615 прописом
616 прописом:
Шістсот шістнадцять
616 прописом англійською: in words 616 — Six hundred sixteen
616 прописом іспанською: en palabras 616 — Seiscientos dieciséis
616 прописом німецькою: in Worten 616 — Sechshundertsechzehn
616 прописом французькою: par écrit 616 — Six-cent-seize
616 прописом португальською: em palavras 616 — Seiscentos e dezesseis
616 прописом італійською: in lettere 616 — Seicentosedici
616 прописом російською: прописью 616 — Шестьсот шестнадцать
Сума 616 прописом
617 прописом:
Шістсот сімнадцять
617 прописом англійською: in words 617 — Six hundred seventeen
617 прописом іспанською: en palabras 617 — Seiscientos diecisiete
617 прописом німецькою: in Worten 617 — Sechshundertsiebzehn
617 прописом французькою: par écrit 617 — Six-cent-dix-sept
617 прописом португальською: em palavras 617 — Seiscentos e dezessete
617 прописом італійською: in lettere 617 — Seicentodiciassette
617 прописом російською: прописью 617 — Шестьсот семнадцать
Сума 617 прописом
618 прописом:
Шістсот вісімнадцять
618 прописом англійською: in words 618 — Six hundred eighteen
618 прописом іспанською: en palabras 618 — Seiscientos dieciocho
618 прописом німецькою: in Worten 618 — Sechshundertachtzehn
618 прописом французькою: par écrit 618 — Six-cent-dix-huit
618 прописом португальською: em palavras 618 — Seiscentos e dezoito
618 прописом італійською: in lettere 618 — Seicentodiciotto
618 прописом російською: прописью 618 — Шестьсот восемнадцать
Сума 618 прописом
619 прописом:
Шістсот дев’ятнадцять
619 прописом англійською: in words 619 — Six hundred nineteen
619 прописом іспанською: en palabras 619 — Seiscientos diecinueve
619 прописом німецькою: in Worten 619 — Sechshundertneunzehn
619 прописом французькою: par écrit 619 — Six-cent-dix-neuf
619 прописом португальською: em palavras 619 — Seiscentos e dezenove
619 прописом італійською: in lettere 619 — Seicentodiciannove
619 прописом російською: прописью 619 — Шестьсот девятнадцать
Сума 619 прописом
620 прописом:
Шістсот двадцять
620 прописом англійською: in words 620 — Six hundred twenty
620 прописом іспанською: en palabras 620 — Seiscientos veinte
620 прописом німецькою: in Worten 620 — Sechshundertzwanzig
620 прописом французькою: par écrit 620 — Six-cent-vingt
620 прописом португальською: em palavras 620 — Seiscentos e vinte
620 прописом італійською: in lettere 620 — Seicentoventi
620 прописом російською: прописью 620 — Шестьсот двадцать
Сума 620 прописом
621 прописом:
Шістсот двадцять один
621 прописом англійською: in words 621 — Six hundred twenty-one
621 прописом іспанською: en palabras 621 — Seiscientos veintiuno
621 прописом німецькою: in Worten 621 — Sechshunderteinundzwanzig
621 прописом французькою: par écrit 621 — Six-cent-vingt et un
621 прописом португальською: em palavras 621 — Seiscentos e vinte e um
621 прописом італійською: in lettere 621 — Seicentoventuno
621 прописом російською: прописью 621 — Шестьсот двадцать один
Сума 621 прописом
622 прописом:
Шістсот двадцять два
622 прописом англійською: in words 622 — Six hundred twenty-two
622 прописом іспанською: en palabras 622 — Seiscientos veintidós
622 прописом німецькою: in Worten 622 — Sechshundertzweiundzwanzig
622 прописом французькою: par écrit 622 — Six-cent-vingt-deux
622 прописом португальською: em palavras 622 — Seiscentos e vinte e dois
622 прописом італійською: in lettere 622 — Seicentoventidue
622 прописом російською: прописью 622 — Шестьсот двадцать два
Сума 622 прописом
623 прописом:
Шістсот двадцять три
623 прописом англійською: in words 623 — Six hundred twenty-three
623 прописом іспанською: en palabras 623 — Seiscientos veintitrés
623 прописом німецькою: in Worten 623 — Sechshundertdreiundzwanzig
623 прописом французькою: par écrit 623 — Six-cent-vingt-trois
623 прописом португальською: em palavras 623 — Seiscentos e vinte e três
623 прописом італійською: in lettere 623 — Seicentoventitré
623 прописом російською: прописью 623 — Шестьсот двадцать три
Сума 623 прописом
624 прописом:
Шістсот двадцять чотири
624 прописом англійською: in words 624 — Six hundred twenty-four
624 прописом іспанською: en palabras 624 — Seiscientos veinticuatro
624 прописом німецькою: in Worten 624 — Sechshundertvierundzwanzig
624 прописом французькою: par écrit 624 — Six-cent-vingt-quatre
624 прописом португальською: em palavras 624 — Seiscentos e vinte e quatro
624 прописом італійською: in lettere 624 — Seicentoventiquattro
624 прописом російською: прописью 624 — Шестьсот двадцать четыре
Сума 624 прописом
625 прописом:
Шістсот двадцять п’ять
625 прописом англійською: in words 625 — Six hundred twenty-five
625 прописом іспанською: en palabras 625 — Seiscientos veinticinco
625 прописом німецькою: in Worten 625 — Sechshundertfünfundzwanzig
625 прописом французькою: par écrit 625 — Six-cent-vingt-cinq
625 прописом португальською: em palavras 625 — Seiscentos e vinte e cinco
625 прописом італійською: in lettere 625 — Seicentoventicinque
625 прописом російською: прописью 625 — Шестьсот двадцать пять
Сума 625 прописом
626 прописом:
Шістсот двадцять шість
626 прописом англійською: in words 626 — Six hundred twenty-six
626 прописом іспанською: en palabras 626 — Seiscientos veintiséis
626 прописом німецькою: in Worten 626 — Sechshundertsechsundzwanzig
626 прописом французькою: par écrit 626 — Six-cent-vingt-six
626 прописом португальською: em palavras 626 — Seiscentos e vinte e seis
626 прописом італійською: in lettere 626 — Seicentoventisei
626 прописом російською: прописью 626 — Шестьсот двадцать шесть
Сума 626 прописом
627 прописом:
Шістсот двадцять сім
627 прописом англійською: in words 627 — Six hundred twenty-seven
627 прописом іспанською: en palabras 627 — Seiscientos veintisiete
627 прописом німецькою: in Worten 627 — Sechshundertsiebenundzwanzig
627 прописом французькою: par écrit 627 — Six-cent-vingt-sept
627 прописом португальською: em palavras 627 — Seiscentos e vinte e sete
627 прописом італійською: in lettere 627 — Seicentoventisette
627 прописом російською: прописью 627 — Шестьсот двадцать семь
Сума 627 прописом
628 прописом:
Шістсот двадцять вісім
628 прописом англійською: in words 628 — Six hundred twenty-eight
628 прописом іспанською: en palabras 628 — Seiscientos veintiocho
628 прописом німецькою: in Worten 628 — Sechshundertachtundzwanzig
628 прописом французькою: par écrit 628 — Six-cent-vingt-huit
628 прописом португальською: em palavras 628 — Seiscentos e vinte e oito
628 прописом італійською: in lettere 628 — Seicentoventotto
628 прописом російською: прописью 628 — Шестьсот двадцать восемь
Сума 628 прописом
629 прописом:
Шістсот двадцять дев’ять
629 прописом англійською: in words 629 — Six hundred twenty-nine
629 прописом іспанською: en palabras 629 — Seiscientos veintinueve
629 прописом німецькою: in Worten 629 — Sechshundertneunundzwanzig
629 прописом французькою: par écrit 629 — Six-cent-vingt-neuf
629 прописом португальською: em palavras 629 — Seiscentos e vinte e nove
629 прописом італійською: in lettere 629 — Seicentoventinove
629 прописом російською: прописью 629 — Шестьсот двадцать девять
Сума 629 прописом
630 прописом:
Шістсот тридцять
630 прописом англійською: in words 630 — Six hundred thirty
630 прописом іспанською: en palabras 630 — Seiscientos treinta
630 прописом німецькою: in Worten 630 — Sechshundertdreißig
630 прописом французькою: par écrit 630 — Six-cent-trente
630 прописом португальською: em palavras 630 — Seiscentos e trinta
630 прописом італійською: in lettere 630 — Seicentotrenta
630 прописом російською: прописью 630 — Шестьсот тридцать
Сума 630 прописом
631 прописом:
Шістсот тридцять один
631 прописом англійською: in words 631 — Six hundred thirty-one
631 прописом іспанською: en palabras 631 — Seiscientos treinta y uno
631 прописом німецькою: in Worten 631 — Sechshunderteinunddreißig
631 прописом французькою: par écrit 631 — Six-cent-trente et un
631 прописом португальською: em palavras 631 — Seiscentos e trinta e um
631 прописом італійською: in lettere 631 — Seicentotrentuno
631 прописом російською: прописью 631 — Шестьсот тридцать один
Сума 631 прописом
632 прописом:
Шістсот тридцять два
632 прописом англійською: in words 632 — Six hundred thirty-two
632 прописом іспанською: en palabras 632 — Seiscientos treinta y dos
632 прописом німецькою: in Worten 632 — Sechshundertzweiunddreißig
632 прописом французькою: par écrit 632 — Six-cent-trente-deux
632 прописом португальською: em palavras 632 — Seiscentos e trinta e dois
632 прописом італійською: in lettere 632 — Seicentotrentadue
632 прописом російською: прописью 632 — Шестьсот тридцать два
Сума 632 прописом
633 прописом:
Шістсот тридцять три
633 прописом англійською: in words 633 — Six hundred thirty-three
633 прописом іспанською: en palabras 633 — Seiscientos treinta y tres
633 прописом німецькою: in Worten 633 — Sechshundertdreiunddreißig
633 прописом французькою: par écrit 633 — Six-cent-trente-trois
633 прописом португальською: em palavras 633 — Seiscentos e trinta e três
633 прописом італійською: in lettere 633 — Seicentotrentatré
633 прописом російською: прописью 633 — Шестьсот тридцать три
Сума 633 прописом
634 прописом:
Шістсот тридцять чотири
634 прописом англійською: in words 634 — Six hundred thirty-four
634 прописом іспанською: en palabras 634 — Seiscientos treinta y cuatro
634 прописом німецькою: in Worten 634 — Sechshundertvierunddreißig
634 прописом французькою: par écrit 634 — Six-cent-trente-quatre
634 прописом португальською: em palavras 634 — Seiscentos e trinta e quatro
634 прописом італійською: in lettere 634 — Seicentotrentaquattro
634 прописом російською: прописью 634 — Шестьсот тридцать четыре
Сума 634 прописом
635 прописом:
Шістсот тридцять п’ять
635 прописом англійською: in words 635 — Six hundred thirty-five
635 прописом іспанською: en palabras 635 — Seiscientos treinta y cinco
635 прописом німецькою: in Worten 635 — Sechshundertfünfunddreißig
635 прописом французькою: par écrit 635 — Six-cent-trente-cinq
635 прописом португальською: em palavras 635 — Seiscentos e trinta e cinco
635 прописом італійською: in lettere 635 — Seicentotrentacinque
635 прописом російською: прописью 635 — Шестьсот тридцать пять
Сума 635 прописом
636 прописом:
Шістсот тридцять шість
636 прописом англійською: in words 636 — Six hundred thirty-six
636 прописом іспанською: en palabras 636 — Seiscientos treinta y seis
636 прописом німецькою: in Worten 636 — Sechshundertsechsunddreißig
636 прописом французькою: par écrit 636 — Six-cent-trente-six
636 прописом португальською: em palavras 636 — Seiscentos e trinta e seis
636 прописом італійською: in lettere 636 — Seicentotrentasei
636 прописом російською: прописью 636 — Шестьсот тридцать шесть
Сума 636 прописом
637 прописом:
Шістсот тридцять сім
637 прописом англійською: in words 637 — Six hundred thirty-seven
637 прописом іспанською: en palabras 637 — Seiscientos treinta y siete
637 прописом німецькою: in Worten 637 — Sechshundertsiebenunddreißig
637 прописом французькою: par écrit 637 — Six-cent-trente-sept
637 прописом португальською: em palavras 637 — Seiscentos e trinta e sete
637 прописом італійською: in lettere 637 — Seicentotrentasette
637 прописом російською: прописью 637 — Шестьсот тридцать семь
Сума 637 прописом
638 прописом:
Шістсот тридцять вісім
638 прописом англійською: in words 638 — Six hundred thirty-eight
638 прописом іспанською: en palabras 638 — Seiscientos treinta y ocho
638 прописом німецькою: in Worten 638 — Sechshundertachtunddreißig
638 прописом французькою: par écrit 638 — Six-cent-trente-huit
638 прописом португальською: em palavras 638 — Seiscentos e trinta e oito
638 прописом італійською: in lettere 638 — Seicentotrentotto
638 прописом російською: прописью 638 — Шестьсот тридцать восемь
Сума 638 прописом
639 прописом:
Шістсот тридцять дев’ять
639 прописом англійською: in words 639 — Six hundred thirty-nine
639 прописом іспанською: en palabras 639 — Seiscientos treinta y nueve
639 прописом німецькою: in Worten 639 — Sechshundertneununddreißig
639 прописом французькою: par écrit 639 — Six-cent-trente-neuf
639 прописом португальською: em palavras 639 — Seiscentos e trinta e nove
639 прописом італійською: in lettere 639 — Seicentotrentanove
639 прописом російською: прописью 639 — Шестьсот тридцать девять
Сума 639 прописом
640 прописом:
Шістсот сорок
640 прописом англійською: in words 640 — Six hundred forty
640 прописом іспанською: en palabras 640 — Seiscientos cuarenta
640 прописом німецькою: in Worten 640 — Sechshundertvierzig
640 прописом французькою: par écrit 640 — Six-cent-quarante
640 прописом португальською: em palavras 640 — Seiscentos e quarenta
640 прописом італійською: in lettere 640 — Seicentoquaranta
640 прописом російською: прописью 640 — Шестьсот сорок
Сума 640 прописом
641 прописом:
Шістсот сорок один
641 прописом англійською: in words 641 — Six hundred forty-one
641 прописом іспанською: en palabras 641 — Seiscientos cuarenta y uno
641 прописом німецькою: in Worten 641 — Sechshunderteinundvierzig
641 прописом французькою: par écrit 641 — Six-cent-quarante et un
641 прописом португальською: em palavras 641 — Seiscentos e quarenta e um
641 прописом італійською: in lettere 641 — Seicentoquarantuno
641 прописом російською: прописью 641 — Шестьсот сорок один
Сума 641 прописом
642 прописом:
Шістсот сорок два
642 прописом англійською: in words 642 — Six hundred forty-two
642 прописом іспанською: en palabras 642 — Seiscientos cuarenta y dos
642 прописом німецькою: in Worten 642 — Sechshundertzweiundvierzig
642 прописом французькою: par écrit 642 — Six-cent-quarante-deux
642 прописом португальською: em palavras 642 — Seiscentos e quarenta e dois
642 прописом італійською: in lettere 642 — Seicentoquarantadue
642 прописом російською: прописью 642 — Шестьсот сорок два
Сума 642 прописом
643 прописом:
Шістсот сорок три
643 прописом англійською: in words 643 — Six hundred forty-three
643 прописом іспанською: en palabras 643 — Seiscientos cuarenta y tres
643 прописом німецькою: in Worten 643 — Sechshundertdreiundvierzig
643 прописом французькою: par écrit 643 — Six-cent-quarante-trois
643 прописом португальською: em palavras 643 — Seiscentos e quarenta e três
643 прописом італійською: in lettere 643 — Seicentoquarantatré
643 прописом російською: прописью 643 — Шестьсот сорок три
Сума 643 прописом
644 прописом:
Шістсот сорок чотири
644 прописом англійською: in words 644 — Six hundred forty-four
644 прописом іспанською: en palabras 644 — Seiscientos cuarenta y cuatro
644 прописом німецькою: in Worten 644 — Sechshundertvierundvierzig
644 прописом французькою: par écrit 644 — Six-cent-quarante-quatre
644 прописом португальською: em palavras 644 — Seiscentos e quarenta e quatro
644 прописом італійською: in lettere 644 — Seicentoquarantaquattro
644 прописом російською: прописью 644 — Шестьсот сорок четыре
Сума 644 прописом
645 прописом:
Шістсот сорок п’ять
645 прописом англійською: in words 645 — Six hundred forty-five
645 прописом іспанською: en palabras 645 — Seiscientos cuarenta y cinco
645 прописом німецькою: in Worten 645 — Sechshundertfünfundvierzig
645 прописом французькою: par écrit 645 — Six-cent-quarante-cinq
645 прописом португальською: em palavras 645 — Seiscentos e quarenta e cinco
645 прописом італійською: in lettere 645 — Seicentoquarantacinque
645 прописом російською: прописью 645 — Шестьсот сорок пять
Сума 645 прописом
646 прописом:
Шістсот сорок шість
646 прописом англійською: in words 646 — Six hundred forty-six
646 прописом іспанською: en palabras 646 — Seiscientos cuarenta y seis
646 прописом німецькою: in Worten 646 — Sechshundertsechsundvierzig
646 прописом французькою: par écrit 646 — Six-cent-quarante-six
646 прописом португальською: em palavras 646 — Seiscentos e quarenta e seis
646 прописом італійською: in lettere 646 — Seicentoquarantasei
646 прописом російською: прописью 646 — Шестьсот сорок шесть
Сума 646 прописом
647 прописом:
Шістсот сорок сім
647 прописом англійською: in words 647 — Six hundred forty-seven
647 прописом іспанською: en palabras 647 — Seiscientos cuarenta y siete
647 прописом німецькою: in Worten 647 — Sechshundertsiebenundvierzig
647 прописом французькою: par écrit 647 — Six-cent-quarante-sept
647 прописом португальською: em palavras 647 — Seiscentos e quarenta e sete
647 прописом італійською: in lettere 647 — Seicentoquarantasette
647 прописом російською: прописью 647 — Шестьсот сорок семь
Сума 647 прописом
648 прописом:
Шістсот сорок вісім
648 прописом англійською: in words 648 — Six hundred forty-eight
648 прописом іспанською: en palabras 648 — Seiscientos cuarenta y ocho
648 прописом німецькою: in Worten 648 — Sechshundertachtundvierzig
648 прописом французькою: par écrit 648 — Six-cent-quarante-huit
648 прописом португальською: em palavras 648 — Seiscentos e quarenta e oito
648 прописом італійською: in lettere 648 — Seicentoquarantotto
648 прописом російською: прописью 648 — Шестьсот сорок восемь
Сума 648 прописом
649 прописом:
Шістсот сорок дев’ять
649 прописом англійською: in words 649 — Six hundred forty-nine
649 прописом іспанською: en palabras 649 — Seiscientos cuarenta y nueve
649 прописом німецькою: in Worten 649 — Sechshundertneunundvierzig
649 прописом французькою: par écrit 649 — Six-cent-quarante-neuf
649 прописом португальською: em palavras 649 — Seiscentos e quarenta e nove
649 прописом італійською: in lettere 649 — Seicentoquarantanove
649 прописом російською: прописью 649 — Шестьсот сорок девять
Сума 649 прописом
шестьсот
-
1
шестьсот
шістсо́т, род. п. шестисо́т
Русско-украинский словарь > шестьсот
См. также в других словарях:
-
ШЕСТЬСОТ — ШЕСТЬСОТ, шестисот, шестистам, шестьюстами, шестьюстах, числ. колич. Число 600. Умножить шестьсот на три. || кого чего. Количество 600. Шестьсот рублей. Толковый словарь Ушакова. Д.Н. Ушаков. 1935 1940 … Толковый словарь Ушакова
-
шестьсот — шестьсот, род. шестисот, дат. шестистам, твор. шестьюстами, предл. о шестистах. В предложном сочетании: по шестисот и допустимо по шестьсот. Произносится [шессот] … Словарь трудностей произношения и ударения в современном русском языке
-
ШЕСТЬСОТ — ШЕСТЬСОТ, шестисот, шестистам, шестьюстами, о шестистах, колич. Число и количество 600. | поряд. шестисотый, ая, ое. Толковый словарь Ожегова. С.И. Ожегов, Н.Ю. Шведова. 1949 1992 … Толковый словарь Ожегова
-
шестьсот — шестьсот, шестисот, шестистам, шестьюстами … Орфографический словарь-справочник
-
Шестьсот — 600 шестьсот 597 · 598 · 599 · 600 · 601 · 602 · 603 570 · 580 · 590 · 600 · 610 · 620 · 630 300 · 400 · 500 · 600 · 700 · 800 · 900 Факторизация: 2×2×2×3×5×5 Римская запись: DC Двоичное: 10 0101 1000 … Википедия
-
ШЕСТЬСОТ ШЕСТЬ — «ШЕСТЬСОТ ШЕСТЬ» («Квинтэссенция злобы дня», «Приключение в парке»), Россия, А.ДРАНКОВ, 1911, ч/б. Комедия пародия. Забавная, остроумная пародия на препарат «606», лекарство от сифилиса, изобретенное профессором Эрлихом, и, одновременно, реклама… … Энциклопедия кино
-
шестьсот — шестьс’от добыча (Исх.14:7 ), поражение филистимлян (Суд.3:31 ), число воинов (Суд.18:11 ; 1Цар.13:15 ; 1Цар.23:13 ; 2Цар.15:18 ), остаток колена (Суд.20:47 ), вес, цена (1Цар.17:7 ; 3Цар.10:16 ,29; 1Пар.21:25 ; 2Пар.3:8 ) … Библия. Ветхий и Новый заветы. Синодальный перевод. Библейская энциклопедия арх. Никифора.
-
Шестьсот — числ. 1. Название числа, состоящего из 600 единиц. 2. Такое количество единиц чего либо. Толковый словарь Ефремовой. Т. Ф. Ефремова. 2000 … Современный толковый словарь русского языка Ефремовой
-
шестьсот — шестьсот, шестисот, шестистам, шестьюстами, шестистах (Источник: «Полная акцентуированная парадигма по А. А. Зализняку») … Формы слов
-
шестьсот — шестьс от, шестис от, шестист ам, шестьюст ами, о шестист ах … Русский орфографический словарь
-
шестьсот — Р. шестисо/т, Д. шестиста/м, Тв. шестьюста/ми, Пр. о шестиста/х, числит … Орфографический словарь русского языка
Если вам требуется написать цифры на украинском языке, то вы так же можете воспользоваться пользовательской функцией PropisUkr, этой функции нет в самом Excel, ее вы можете вставить самостоятельно с помощью макроса.
Пользовательская функция для перевода чисел в текстовом виде на украинском языке выглядит следующим образом:
=PropisUkr (n-hryvnias-kopecks)
где
n — ссылка на ячейку с суммой, числом
hryvnias — необязательный аргумент, позволяет показывать (1) или не показывать (0) слово гривны
kopecks — необязательный аргумент, позволяет показывать (1) или не показывать (0) в конце копейки.
Чтобы сделать активной данную функции необходимо добавить код в VBA для этого:
- нажмите сочетание клавиш ALT+F11, чтобы открыть редактор Visual Basic
- добавьте новый пустой модуль через меню Insert — Module
- скопируйте и вставьте туда код этой функции, указанный ниже:
Видео: Преобразование числа в текст прописью по-русски
Макрос пользовательской функции для перевода чисел в текстовом виде на украинском языке
Function PropisUkr(n As Double, Optional hryvnias As Variant = False, Optional kopecks As Variant = False) As StringNums0 = Array(«», «одна «, «дві «, «три «, «чотири «, «п`ять «, «шість «, «сім «, «вісім «, «дев`ять «)Nums1 = Array(«», «один «, «два «, «три «, «чотири «, «п`ять «, «шість «, «сім «, «вісім «, «дев`ять «)Nums2 = Array(«», «десять «, «двадцять «, «тридцять «, «сорок «, «п`ятдесят «, «шістдесят «, «сімдесят «, «вісімдесят «, «дев`яносто «)Nums3 = Array(«», «сто «, «двісті «, «триста «, «чотириста «, «п`ятсот «, «шістсот «, «сімсот «, «вісімсот «, «дев`ятсот «)Nums4 = Array(«», «одна «, «дві «, «три «, «чотири «, «п`ять «, «шість «, «сім «, «вісім «, «дев`ять «)Nums5 = Array(«десять «, «одинадцять «, «дванадцять «, «тринадцять «, «чотирнадцять «, «п`ятнадцять «, «шістнадцять «, «сімнадцять «, «вісімнадцять «, «дев`ятнадцять «)Sum = WorksheetFunction.Round(CDbl(n), 2)whole = Int(Sum)fraq = Format(Round(Abs(Sum — whole) * 100), «00»)hryvnias = CBool(hryvnias)kopecks = CBool(kopecks)If Sum < 0 Thenwhole = 0fraq = Format(0, «00»)ed_txt = «Ноль «GoTo rrrEnd Ifed = 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)bil = Class(n, 10)Select Case bilCase 1bil_txt = Nums1(bil) & «мільярд «Case 2 To 4bil_txt = Nums1(bil) & «мільярди «Case 5 To 9bil_txt = Nums1(bil) & «мільярдів «End SelectSelect Case sotmilCase 1 To 9sotmil_txt = Nums3(sotmil)End SelectSelect Case decmilCase 1mil_txt = Nums5(mil) & «мільйонів «GoTo wwwCase 2 To 9decmil_txt = Nums2(decmil)End SelectSelect Case milCase 0If decmil > 0 Then mil_txt = Nums4(mil) & «мільйонів «Case 1mil_txt = Nums1(mil) & «мільйон «Case 2, 3, 4mil_txt = Nums1(mil) & «мільйона «Case 5 To 9mil_txt = Nums1(mil) & «мільйонів «End SelectIf decmil = 0 And mil = 0 And sotmil <> 0 Then sotmil_txt = sotmil_txt & «мільйонів «www:sottys_txt = Nums3(sottys)Select Case dectysCase 1tys_txt = Nums5(tys) & «тисяч «GoTo eeeCase 2 To 9dectys_txt = Nums2(dectys)End SelectSelect Case tysCase 0If dectys > 0 Then tys_txt = Nums4(tys) & «тисяч «Case 1tys_txt = Nums4(tys) & «тисячa «Case 2, 3, 4tys_txt = Nums4(tys) & «тисячі «Case 5 To 9tys_txt = Nums4(tys) & «тисяч «End SelectIf dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & » тисяч «eee:sot_txt = Nums3(sot)Select Case decCase 1ed_txt = Nums5(ed)GoTo rrrCase 2 To 9dec_txt = Nums2(dec)End Selected_txt = Nums0(ed)If whole < 1 Then ed_txt = «Ноль «rrr:Select Case Class(n, 1) + Class(n, 2) * 10Case 1, 21, 31, 41, 51, 61, 71, 81, 91grv_text = «гривня»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, 94grv_text = «гривні»Case Elsegrv_text = «гривень»End SelectSelect Case fraqCase 1, 21, 31, 41, 51, 61, 71, 81, 91kop_text = «копiйка»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, 94kop_text = «копійки»Case Elsekop_text = «копійок»End Selectoutstr = bil_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txtIf hryvnias Then outstr = outstr & grv_textIf hryvnias And kopecks Then outstr = outstr & » » & fraq & » » & kop_textPropisUkr = UCase(Mid(outstr, 1, 1)) + Mid(outstr, 2)End FunctionPrivate Function Class(m, i)Class = Int(Int(m — (10 ^ i) * Int(m / (10 ^ i))) / 10 ^ (i — 1))End FunctionPrivate Function ScriptRus(n As Double) As StringDim Nums1, Nums2, Nums3, Nums4 As VariantNums1 = Array(«», «один «, «два «, «три «, «четыре «, «пять «, «шесть «, «семь «, «восемь «, «девять «)Nums2 = Array(«», «десять «, «двадцать «, «тридцать «, «сорок «, «пятьдесят «, «шестьдесят «, «семьдесят «, «восемьдесят «, «девяносто «)Nums3 = Array(«», «сто «, «двести «, «триста «, «четыреста «, «пятьсот «, «шестьсот «, «семьсот «, «восемьсот «, «девятьсот «)Nums4 = Array(«», «одна «, «две «, «три «, «четыре «, «пять «, «шесть «, «семь «, «восемь «, «девять «)Nums5 = Array(«десять «, «одиннадцать «, «двенадцать «, «тринадцать «, «четырнадцать «, «пятнадцать «, «шестнадцать «, «семнадцать «, «восемнадцать «, «девятнадцать «)If n = 0 ThenScriptRus = «Ноль»Exit FunctionEnd Ifed = 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 ThenSelect Case mlrdCase 1mlrd_txt = Nums1(mlrd) & «миллиард «Case 2, 3, 4mlrd_txt = Nums1(mlrd) & «миллиарда «Case 5 To 20mlrd_txt = Nums1(mlrd) & «миллиардов «End SelectEnd IfIf (sotmil + decmil + mil) > 0 Thensotmil_txt = Nums3(sotmil)Select Case decmilCase 1mil_txt = Nums5(mil) & «миллионов «GoTo wwwCase 2 To 9decmil_txt = Nums2(decmil)End SelectSelect Case milCase 1mil_txt = Nums1(mil) & «миллион «Case 2, 3, 4mil_txt = Nums1(mil) & «миллиона «Case 0, 5 To 20mil_txt = Nums1(mil) & «миллионов «End SelectEnd Ifwww:sottys_txt = Nums3(sottys)Select Case dectysCase 1tys_txt = Nums5(tys) & «тысяч «GoTo eeeCase 2 To 9dectys_txt = Nums2(dectys)End SelectSelect Case tysCase 0If dectys > 0 Then tys_txt = Nums4(tys) & «тысяч «Case 1tys_txt = Nums4(tys) & «тысяча «Case 2, 3, 4tys_txt = Nums4(tys) & «тысячи «Case 5 To 9tys_txt = Nums4(tys) & «тысяч «End SelectIf dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & » тысяч «eee:sot_txt = Nums3(sot)Select Case decCase 1ed_txt = Nums5(ed)GoTo rrrCase 2 To 9dec_txt = Nums2(dec)End Selected_txt = Nums1(ed)rrr:ScriptRus = mlrd_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txtScriptRus = UCase(Left(ScriptRus, 1)) & LCase(Mid(ScriptRus, 2, Len(ScriptRus) — 1))End FunctionPrivate Function ScriptEng(ByVal Number As Double)Dim BigDenom As String, Temp As StringDim Count As IntegerReDim Place(9) As StringPlace(2) = » Thousand «Place(3) = » Million «Place(4) = » Billion «Place(5) = » Trillion «strAmount = Trim(Str(Int(Number)))Count = 1Do While strAmount <> «»Temp = GetHundreds(Right(strAmount, 3))If Temp <> «» Then BigDenom = Temp & Place(Count) & BigDenomIf Len(strAmount) > 3 ThenstrAmount = Left(strAmount, Len(strAmount) — 3)ElsestrAmount = «»End IfCount = Count + 1LoopSelect Case BigDenomCase «»BigDenom = «Zero «Case «One»BigDenom = «One «Case ElseBigDenom = BigDenom & » «End SelectScriptEng = BigDenomEnd FunctionPrivate Function GetHundreds(ByVal MyNumber)Dim result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right(«000» & MyNumber, 3)If Mid(MyNumber, 1, 1) <> «0» Thenresult = GetDigit(Mid(MyNumber, 1, 1)) & » Hundred «End IfIf Mid(MyNumber, 1, 1) <> «0» And (Mid(MyNumber, 2, 1) <> «0» Or Mid(MyNumber, 3, 1) <> «0») Thenresult = result & «And «End IfIf Mid(MyNumber, 2, 1) <> «0» Thenresult = result & GetTens(Mid(MyNumber, 2))Elseresult = result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = resultEnd FunctionPrivate Function GetTens(TensText)Dim result As Stringresult = «»If Val(Left(TensText, 1)) = 1 ThenSelect 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 ElseEnd SelectElseSelect 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 ElseEnd Selectresult = result & GetDigit _(Right(TensText, 1))End IfGetTens = resultEnd FunctionPrivate 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 SelectEnd Function
Примечание
Видео: Купюра 25 рублей 1961 года и Фальшивомонетчик СССР № 1 бонистика коллекция денег
- Данная функция будет работать с числами от 0 до 99 999 999
- Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
- Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)
Пример, если вы хотите, чтобы функция заменяла числа на украинский текст, со словами «гривна» и копейками, то напишите следующую формулу.
=PropisUkr (A1-1-1)
где A1 — это ссылка на ячейку с числом, которое необходимо перевести в текст.
Если вам требуется написать цифры на украинском языке, то вы так же можете воспользоваться пользовательской функцией PropisUkr, этой функции нет в самом Excel, ее вы можете вставить самостоятельно с помощью макроса.
Смотрите также: Как написать суммы и цифры прописью на русском или английском языке (универсальная функция)
Пользовательская функция для перевода чисел в текстовом виде на украинском языке выглядит следующим образом:
=PropisUkr(n;hryvnias;kopecks)
где
n — ссылка на ячейку с суммой, числом
hryvnias — необязательный аргумент, позволяет показывать (1) или не показывать (0) слово гривны
kopecks — необязательный аргумент, позволяет показывать (1) или не показывать (0) в конце копейки.
Чтобы сделать активной данную функции необходимо добавить код в VBA для этого:
- нажмите сочетание клавиш ALT+F11, чтобы открыть редактор Visual Basic
- добавьте новый пустой модуль через меню Insert — Module
- скопируйте и вставьте туда код этой функции, указанный ниже:
Макрос пользовательской функции для перевода чисел в текстовом виде на украинском языке
Function PropisUkr(n As Double, Optional hryvnias As Variant = False, Optional kopecks As Variant = False) As String
Nums0 = Array("", "одна ", "дві ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
Nums1 = Array("", "один ", "два ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
Nums2 = Array("", "десять ", "двадцять ", "тридцять ", "сорок ", "п'ятдесят ", "шістдесят ", "сімдесят ", "вісімдесят ", "дев'яносто ")
Nums3 = Array("", "сто ", "двісті ", "триста ", "чотириста ", "п'ятсот ", "шістсот ", "сімсот ", "вісімсот ", "дев'ятсот ")
Nums4 = Array("", "одна ", "дві ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
Nums5 = Array("десять ", "одинадцять ", "дванадцять ", "тринадцять ", "чотирнадцять ", "п'ятнадцять ", "шістнадцять ", "сімнадцять ", "вісімнадцять ", "дев'ятнадцять ")
Sum = WorksheetFunction.Round(CDbl(n), 2)
whole = Int(Sum)
fraq = Format(Round(Abs(Sum - whole) * 100), "00")
hryvnias = CBool(hryvnias)
kopecks = CBool(kopecks)
If Sum < 0 Then
whole = 0
fraq = Format(0, "00")
ed_txt = "Ноль "
GoTo rrr
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)
bil = Class(n, 10)
Select Case bil
Case 1
bil_txt = Nums1(bil) & "мільярд "
Case 2 To 4
bil_txt = Nums1(bil) & "мільярди "
Case 5 To 9
bil_txt = Nums1(bil) & "мільярдів "
End Select
Select Case sotmil
Case 1 To 9
sotmil_txt = Nums3(sotmil)
End Select
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 0
If decmil > 0 Then mil_txt = Nums4(mil) & "мільйонів "
Case 1
mil_txt = Nums1(mil) & "мільйон "
Case 2, 3, 4
mil_txt = Nums1(mil) & "мільйона "
Case 5 To 9
mil_txt = Nums1(mil) & "мільйонів "
End Select
If decmil = 0 And mil = 0 And sotmil <> 0 Then sotmil_txt = sotmil_txt & "мільйонів "
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) & "тисячa "
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 = Nums0(ed)
If whole < 1 Then ed_txt = "Ноль "
rrr:
Select Case Class(n, 1) + Class(n, 2) * 10
Case 1, 21, 31, 41, 51, 61, 71, 81, 91
grv_text = "гривня"
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
grv_text = "гривні"
Case Else
grv_text = "гривень"
End Select
Select Case fraq
Case 1, 21, 31, 41, 51, 61, 71, 81, 91
kop_text = "копiйка"
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
kop_text = "копійки"
Case Else
kop_text = "копійок"
End Select
outstr = bil_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt
If hryvnias Then outstr = outstr & grv_text
If hryvnias And kopecks Then outstr = outstr & " " & fraq & " " & kop_text
PropisUkr = UCase(Mid(outstr, 1, 1)) + Mid(outstr, 2)
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
Примечание
- Данная функция будет работать с числами от 0 до 99 999 999
- Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала
- После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
- Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)
Пример, если вы хотите, чтобы функция заменяла числа на украинский текст, со словами «гривна» и копейками, то напишите следующую формулу.
=PropisUkr(A1;1;1)
где A1 — это ссылка на ячейку с числом, которое необходимо перевести в текст.