Отправлено: 23.10.14 11:13. Заголовок: Функция перевода числа в слово "Одна тысяча двести пятьдесят..."

Подскажите функцию перевода числа в слово (предложение)

например 1250 = "Одна тысяча двести пятьдесят..."
и так далее ....

И заодно - как посоветуете реализовать показ больших чисел (деньги) в таблицах и LABEL :
2500000 наподобие 2.500.000 или 2'500'000

 Отправлено: 23.10.14 11:37. Заголовок: По первой части - вы..

По первой части - выложу вечером функцию, которая работает лет 15.

По второй - для этого существует TRANSFORM() с времен Clipper S'87

 Отправлено: 23.10.14 12:46. Заголовок: См. модуль harbour&#..

См. модуль harbour\contrib\hbmisc\numtxtru.prg, функция NumToTxtRU

 Отправлено: 23.10.14 12:53. Заголовок: Pasha пишет: См. мо..

Pasha пишет:

цитата:

См. модуль harbour\contrib\hbmisc\numtxtru.prg, функция NumToTxtRU

Блин, а я тоже не знал что есть уже готовая функция вв Харборе.
Спасибо БОЛЬШОЕ !

 Отправлено: 23.10.14 16:26. Заголовок: Интуитивно мог догад..

Интуитивно мог догадаться .... NumToTxtRU :) , правда без 'RU' .....

По второму вопросу - дополняю :
Есть сумма , например : 2 500 300 р . Хочу чтоб выводилось как 2'500'300 р
Учитывать нужно что число знаков может быть от 1 до 10 .... и чтоб лишние апострофы не выводились ....

 Отправлено: 23.10.14 17:01. Заголовок: Function StrBlankC(n..

Function StrBlankC(nSum, nLen, nDec, lS)
Local c := Str(nSum, nLen, nDec), cRet := '', cDec, ser, s1

if nDec > 0
cDec := Right(c, nDec + 1)
c := Left(c, len(c) - nDec - 1)
endif
ser := len(c)
while ser > 0
s1 = min(ser, 3)
cRet = Right(c, s1) + cRet
ser -= s1
c = left(c, ser)
if ser > 0
cRet = if(Empty(c), ' ', "'") + cRet
endif
enddo
if nDec > 0
cRet += cDec
endif
if nSum == 0 .and. lS == nil
cRet = space(len(cRet))
endif
Return cRet