Денежная сумма прописью. Довольно короткий вариант.

Сумма прописью. Придумал этот алгоритм после мучений с книжным примером. [cce_visualfoxpro] ************************************************************************************************ * СУММА ПРОПИСЬЮ Visual FoxPro * * Принимает число от 0 до 999'999'999'999,99 * Возвращает текстовую строку с суммой в рублях * * Если число отрицательное, то берет модуль числа. * По желании не сложно доработать, чтобы второй параметр указывал тип валюты, * […]

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

Выдает прописью сумму (руб/коп) до 999 999 999 999.99. Сразу оговорюсь, алгоритм не мой, но более короткого я не встречал. Авось кому пригодится. [code] nSumm = 999999999999.99 *!* @ 1,1 get nSumm *!* READ CLEAR @ 2,1 say(Speeling(nSumm)) FUNCTION Speeling PARAMETER nSumma PRIVATE cSumma * k - копейки cSumma = TRANSFORM(M.nSumma,'9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')+'k' * t - тысячи; […]

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

Тоже не претендуя на авторство, выкладываю украинский вариант: [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') […]

//////////////// ///////////////
Авторизация
*
*
Генерация пароля