Сумма прописью на мове
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Сумма прописью на мове
Привет всем !
Никогда не думал, что такое спрошу … но не ту ли у кого готовой процедуры для печати суммы прописью на украинском языке ?
Я даже представляю правила склонения и словообразования на мове.
Если это продукт глубоко интеллектуальный - готов обсудить с заказчиком Ваши предложения по бюджету.
Заранее спасибо !
Никогда не думал, что такое спрошу … но не ту ли у кого готовой процедуры для печати суммы прописью на украинском языке ?
Я даже представляю правила склонения и словообразования на мове.
Если это продукт глубоко интеллектуальный - готов обсудить с заказчиком Ваши предложения по бюджету.
Заранее спасибо !
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Сумма прописью на мове
Жесть ! Но, спасибо !
Переделал сам по макросу XLS русскую сумму прописью на мову - пусть теперь носитель языка проверяет.
Не так уж мы далеки на самом деле, как это нам рассказывают каждый день по ящику …
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Сумма прописью на мове
Сам не хочу. Но прёт из каждого утюга как там всё плохо и как у нас всё хорошо …
За теми кто отстал - не возвращаться. (С) Кодекс
- RaFaeL
- ✯ Ветеран ✯
- Сообщения: 1376
- Зарегистрирован: 24 Март 2009, 17:59
- Откуда: НН
- Благодарил (а): 7 раз
- Поблагодарили: 1 раз
- Контактная информация:
Сумма прописью на мове
Код: Выделить всё
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
-
- ✯ Ветеран ✯
- Сообщения: 1702
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Сумма прописью на мове
up тему, просьба, срочно понадобилось готовое решение по сумме прописью на разных языках и в разных валютах.
Возможна оплата в разумных пределах
Спасибо за внимание
Возможна оплата в разумных пределах
Спасибо за внимание
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Сумма прописью на мове
Что значит на разных языках ?
У нас только "Ван хандрит долар". (С) Брат 2
У нас только "Ван хандрит долар". (С) Брат 2
За теми кто отстал - не возвращаться. (С) Кодекс
-
- ✯ Ветеран ✯
- Сообщения: 1702
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Сумма прописью на мове
русский, украинский... (возможно было дополнить, например белорусский, казахский)Игорь Столяров писал(а): ↑06 Декабрь 2019, 13:41 Что значит на разных языках ?
Типа "Ван хандрит долар" ? (С) Брат 2
китайский... - шутка
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
- Игорь Столяров
- Ветеран движения
- Сообщения: 7373
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 13 раз
- Поблагодарили: 48 раз
Сумма прописью на мове
Ну это как минимум должно быть в юникоде, даже в мове есть свои символы (вроде I с двумя точками) ...
За теми кто отстал - не возвращаться. (С) Кодекс
-
- ✯ Ветеран ✯
- Сообщения: 1702
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Сумма прописью на мове
зачем в юникоде, насчет "(вроде i с двумя точками)" - это переживем, и одной точки хватит , например: смотрим как у RaFaeLИгорь Столяров писал(а): ↑06 Декабрь 2019, 13:46 Ну это как минимум должно быть в юникоде, даже в мове есть свои символы (вроде I с двумя точками) ...
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 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп