Форум » [x]Harbour » разбить число на триады » Ответить
разбить число на триады
SADSTAR4: Что-то у меня заскок - не могу вспомнить - есть ли такая функция в Харборе? Или нужно самому писать?
Ответов - 2
Pasha: 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
SADSTAR4: А TRANSFORM() не подойдет?
полная версия страницы