Денежная сумма прописью (укр)

Тоже не претендуя на авторство, выкладываю украинский вариант:
[code] FUNCTION Speeling PARAMETER nSumma PRIVATE cSumma IF nSumma=0 RETURN 'нуль гривень 00 копійок' ENDIF * k - копейки cSumma = TRANSFORM(M.nSumma,'9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')+'k' * t - тысячи; m - милионы; M - миллиарды cSumma = STRTRAN(M.cSumma, ',,,,,,', 'eM') cSumma = STRTRAN(M.cSumma, ',,,,,', 'em') cSumma = STRTRAN(M.cSumma, ',,,,', 'et') * e - единицы; d - десятки; c - сотни cSumma = STRTRAN(M.cSumma, ',,,', 'e') cSumma = STRTRAN(M.cSumma, ',,', 'd') cSumma = STRTRAN(M.cSumma, ',', 'c') cSumma = STRTRAN(M.cSumma, '0c0d0et', '') cSumma = STRTRAN(M.cSumma, '0c0d0em', '') cSumma = STRTRAN(M.cSumma, '0c0d0eM', '') cSumma = STRTRAN(M.cSumma, '0c', '') cSumma = STRTRAN(M.cSumma, '1c', 'сто ') cSumma = STRTRAN(M.cSumma, '2c', 'двісті ') cSumma = STRTRAN(M.cSumma, '3c', 'триста ') cSumma = STRTRAN(M.cSumma, '4c', 'чотириста ') cSumma = STRTRAN(M.cSumma, '5c', "п'ятсот ") cSumma = STRTRAN(M.cSumma, '6c', 'шістсот ') cSumma = STRTRAN(M.cSumma, '7c', 'сімсот ') cSumma = STRTRAN(M.cSumma, '8c', 'вісімсот ') cSumma = STRTRAN(M.cSumma, '9c', "дев'ятьсот ") cSumma = STRTRAN(M.cSumma, '1d0e', 'десять ') cSumma = STRTRAN(M.cSumma, '1d1e', 'одинадцять ') cSumma = STRTRAN(M.cSumma, '1d2e', 'дванадцять ') cSumma = STRTRAN(M.cSumma, '1d3e', 'тринадцять ') cSumma = STRTRAN(M.cSumma, '1d4e', 'чотирнадцять ') cSumma = STRTRAN(M.cSumma, '1d5e', "п'ятнадцять ") cSumma = STRTRAN(M.cSumma, '1d6e', 'шістнадцять ') cSumma = STRTRAN(M.cSumma, '1d7e', 'сімнадцять ') cSumma = STRTRAN(M.cSumma, '1d8e', 'вісімнадцять ') cSumma = STRTRAN(M.cSumma, '1d9e', "дев'ятнадцять ") cSumma = STRTRAN(M.cSumma, '0d', '') cSumma = STRTRAN(M.cSumma, '2d', 'двадцять ') cSumma = STRTRAN(M.cSumma, '3d', 'тридцять ') cSumma = STRTRAN(M.cSumma, '4d', 'сорок ') cSumma = STRTRAN(M.cSumma, '5d', "п'ятдесят ") cSumma = STRTRAN(M.cSumma, '6d', 'шістдесят ') cSumma = STRTRAN(M.cSumma, '7d', 'сімдесят ') cSumma = STRTRAN(M.cSumma, '8d', 'вісімдесят ') cSumma = STRTRAN(M.cSumma, '9d', "дев'яносто ") cSumma = STRTRAN(M.cSumma, '0e', '') cSumma = STRTRAN(M.cSumma, '5e', "п'ять ") cSumma = STRTRAN(M.cSumma, '6e', 'шість ') cSumma = STRTRAN(M.cSumma, '7e', 'сім ') cSumma = STRTRAN(M.cSumma, '8e', 'вісім ') cSumma = STRTRAN(M.cSumma, '9e', "дев'ять ") cSumma = STRTRAN(M.cSumma, '1e.', 'одна гривня ') cSumma = STRTRAN(M.cSumma, '2e.', 'дві гривні ') cSumma = STRTRAN(M.cSumma, '3e.', 'три гривні ') cSumma = STRTRAN(M.cSumma, '4e.', 'чотири гривні ') cSumma = STRTRAN(M.cSumma, '1et', 'одна тисяча ') cSumma = STRTRAN(M.cSumma, '2et', 'дві тисячі ') cSumma = STRTRAN(M.cSumma, '3et', 'три тисячі ') cSumma = STRTRAN(M.cSumma, '4et', 'чотири тисячі ') cSumma = STRTRAN(M.cSumma, '1em', 'один мільйон ') cSumma = STRTRAN(M.cSumma, '2em', 'два мільйони ') cSumma = STRTRAN(M.cSumma, '3em', 'три мільйони ') cSumma = STRTRAN(M.cSumma, '4em', 'чотири мільйони ') cSumma = STRTRAN(M.cSumma, '1eM', 'один мільярд ') cSumma = STRTRAN(M.cSumma, '2eM', 'два мільярди ') cSumma = STRTRAN(M.cSumma, '3eM', 'три мільярди') cSumma = STRTRAN(M.cSumma, '4eM', 'чотири мільярди ') cSumma = STRTRAN(M.cSumma, '11k', '11 копійок') cSumma = STRTRAN(M.cSumma, '12k', '12 копійок') cSumma = STRTRAN(M.cSumma, '13k', '13 копійок') cSumma = STRTRAN(M.cSumma, '14k', '14 копійок') cSumma = STRTRAN(M.cSumma, '1k', '1 копійка') cSumma = STRTRAN(M.cSumma, '2k', '2 копійки') cSumma = STRTRAN(M.cSumma, '3k', '3 копійки') cSumma = STRTRAN(M.cSumma, '4k', '4 копійки') cSumma = STRTRAN(M.cSumma, '.', 'гривень ') cSumma = STRTRAN(M.cSumma, 't', 'тисяч ') cSumma = STRTRAN(M.cSumma, 'm', 'мільйонів ') cSumma = STRTRAN(M.cSumma, 'M', 'мільярдів ') cSumma = STRTRAN(M.cSumma, 'k', ' копійок') m.cSumma=allt(IIF(M.nSumma < 10**12, M.cSumma, ALLTRIM(STR(M.nSumma,20,2)))) m.cSumma=lower(left(m.cSumma,1))+lower(substr(m.cSumma,2)) RETURN m.cSumma [/code]
Автор: Sribna
0

Автор публикации

не в сети 16 лет

Sribna

0
Комментарии: 0Публикации: 1Регистрация: 01-08-2005
Оставить комментарий
Авторизация
*
*
Генерация пароля