Сумма прописью на мове

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 3981
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-Дону

Сумма прописью на мове

Сообщение Игорь Столяров » 23 Январь 2019, 17:32

Привет всем !

Никогда не думал, что такое спрошу … но не ту ли у кого готовой процедуры для печати суммы прописью на украинском языке ?

Я даже представляю правила склонения и словообразования на мове. :(
Если это продукт глубоко интеллектуальный - готов обсудить с заказчиком Ваши предложения по бюджету.

Заранее спасибо ! :)
«V» значит Вендетта !

Аватара пользователя
vic7tar
Активист
Сообщения: 186
Зарегистрирован: 09 Февраль 2017, 20:12

Сумма прописью на мове

Сообщение vic7tar » 24 Январь 2019, 0:09

Может поможет?
Вложения
UKR_GR.xls
(62.5 КБ) 23 скачивания
C10, Win10x64

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 3981
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-Дону

Сумма прописью на мове

Сообщение Игорь Столяров » 24 Январь 2019, 6:33

vic7tar писал(а):
24 Январь 2019, 0:09
Может поможет?
Жесть ! :( Но, спасибо !
Переделал сам по макросу XLS русскую сумму прописью на мову - пусть теперь носитель языка проверяет. :)
Не так уж мы далеки на самом деле, как это нам рассказывают каждый день по ящику … ;)
«V» значит Вендетта !

Аватара пользователя
finsoftrz
Ветеран
Сообщения: 1162
Зарегистрирован: 06 Ноябрь 2014, 12:48

Сумма прописью на мове

Сообщение finsoftrz » 24 Январь 2019, 10:48

Ящик не надо смотреть.
Рязань решает.

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 3981
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-Дону

Сумма прописью на мове

Сообщение Игорь Столяров » 24 Январь 2019, 10:54

finsoftrz писал(а):
24 Январь 2019, 10:48
Ящик не надо смотреть.
Сам не хочу. :) Но прёт из каждого утюга как там всё плохо и как у нас всё хорошо … ;)
«V» значит Вендетта !

Аватара пользователя
RaFaeL
Ветеран
Сообщения: 851
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Контактная информация:

Сумма прописью на мове

Сообщение RaFaeL » 24 Январь 2019, 20:40

Код: Выделить всё

  case upper(clip(left(Lang_)))
  of 'RUS'
    AddNumeral(0,'один','два','три','четыре','пять','шесть','семь','восемь','девять')
    AddNumeral(1,'одна','две','три','четыре','пять','шесть','семь','восемь','девять')
    AddNumeral(2,'одно','два','три','четыре','пять','шесть','семь','восемь','девять')
    AddDecs('десять','одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать')
    AddTens('двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто')
    AddHundrs('сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот')
    AddThousand(1,'тысяча','тысячи','тысяч')
    AddMillion(0,'миллион','миллиона','миллионов')
    AddMilliard(0,'миллиард','миллиарда','миллиардов')
    AddTrillion(0,'триллион','триллиона','триллионов')
    LOC:Minus = 'минус'
    LOC:Zero = 'ноль'
  of 'UKR'
    AddNumeral(0,'один','два','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
    AddNumeral(1,'одна','двi','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
    AddNumeral(2,'одно','два','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
    AddDecs('десять','одинадцять','дванадцять','тринадцять','чотирнадцять','п''ятнадцять','шістнадцять','сімнадцять','вісімнадцять','дев''ятнадцять')
    AddTens('двадцять','тридцять','сорок','п''ятдесят','шiстдесят','сiмдесят','вiсiмдесят','дев''яносто')
    AddHundrs('сто','двiстi','триста','чотириста','п''ятсот','шістсот','сімсот','вісімсот','дев''ятсот')
    AddThousand(1,'тисяча','тисячi','тисяч')
    AddMillion(0,'мільйон','мільйона','мільйонiв')
    AddMilliard(0,'мільярд','мільярда','мільярдiв')
    AddTrillion(0,'трильйон','трильйона','трильйонiв')
    LOC:Minus = 'мiнус'
    LOC:Zero = 'нуль'
  end

У нас так, т.е. разница только в числах. Падежи валюты задаются в справочнике валют

Ответить