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