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

Clarion, Clarion 7

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

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

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

Сообщение Игорь Столяров »

Привет всем !

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

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

Заранее спасибо ! :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
vic7tar
Ветеран
Сообщения: 365
Зарегистрирован: 09 Февраль 2017, 20:12

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

Сообщение vic7tar »

Может поможет?
Вложения
UKR_GR.xls
(62.5 КБ) 198 скачиваний
C10, Win10x64
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

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

Сообщение Игорь Столяров »

vic7tar писал(а): 24 Январь 2019, 0:09Может поможет?
Жесть ! :( Но, спасибо !
Переделал сам по макросу XLS русскую сумму прописью на мову - пусть теперь носитель языка проверяет. :)
Не так уж мы далеки на самом деле, как это нам рассказывают каждый день по ящику … ;)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4561
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

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

Сообщение finsoftrz »

Ящик не надо смотреть.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

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

Сообщение Игорь Столяров »

finsoftrz писал(а): 24 Январь 2019, 10:48Ящик не надо смотреть.
Сам не хочу. :) Но прёт из каждого утюга как там всё плохо и как у нас всё хорошо … ;)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
RaFaeL
✯ Ветеран ✯
Сообщения: 1376
Зарегистрирован: 24 Март 2009, 17:59
Откуда: НН
Благодарил (а): 7 раз
Поблагодарили: 1 раз
Контактная информация:

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

Сообщение RaFaeL »

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

  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

У нас так, т.е. разница только в числах. Падежи валюты задаются в справочнике валют
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

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

Сообщение gopstop2007 »

up тему, просьба, срочно понадобилось готовое решение по сумме прописью на разных языках и в разных валютах.
Возможна оплата в разумных пределах :)

Спасибо за внимание
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

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

Сообщение Игорь Столяров »

Что значит на разных языках ? :shock:
У нас только "Ван хандрит долар". (С) Брат 2
За теми кто отстал - не возвращаться. (С) Кодекс
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

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

Сообщение gopstop2007 »

Игорь Столяров писал(а): 06 Декабрь 2019, 13:41 Что значит на разных языках ? :shock:
Типа "Ван хандрит долар" ? (С) Брат 2
русский, украинский... (возможно было дополнить, например белорусский, казахский)
китайский... - шутка :)
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

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

Сообщение Игорь Столяров »

Ну это как минимум должно быть в юникоде, даже в мове есть свои символы (вроде I с двумя точками) ...
За теми кто отстал - не возвращаться. (С) Кодекс
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

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

Сообщение gopstop2007 »

Игорь Столяров писал(а): 06 Декабрь 2019, 13:46 Ну это как минимум должно быть в юникоде, даже в мове есть свои символы (вроде I с двумя точками) ...
зачем в юникоде, насчет "(вроде i с двумя точками)" - это переживем, и одной точки хватит ;), например: смотрим как у RaFaeL
RaFaeL писал(а): 24 Январь 2019, 20:40

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

  case upper(clip(left(Lang_)))
  of 'RUS'
    AddNumeral(0,'один','два','три','четыре','пять','шесть','семь','восемь','девять')
    ...
  of 'UKR'
    AddNumeral(0,'один','два','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
    AddNumeral(1,'одна','двi','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
    ...
У нас так, т.е. разница только в числах. Падежи валюты задаются в справочнике валют
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
Ответить