Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вопрос по str / 4 сообщений из 4, страница 1 из 1
19.04.2005, 16:15
    #33023609
vital345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по str
что-то я торможу совсем. Рушится мировоззрение понимаешь
есть число sum_oplata=sum_cur.sum_all из курсора
select sum(err_allcena.sl_all) as sum_all from err_allcena into cursor sum_cur

хочу вывести его в виде: N кол-во рублей M кол-во копеек

делаю так
str(sum_oplata,15,0)+" руб"+right(str(sum_oplata,15,2),2)+"коп"
имею
120854 руб 55 коп

делаю так
messagebox(str(sum_oplata,15,2))
имею
120853.55


Str получается округляет при указании кол-ва десятичных знаков равным 0
Это так или меня глючит?
Исходную задачу предполагаю решить вырезанием из str(sum_oplata,15,2) функцией right. Но может есть какой-то др-й способ?
...
Рейтинг: 0 / 0
19.04.2005, 16:25
    #33023645
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по str
"Если ничего не получается, прочтите, наконец, инструкцию" (с)

HELP VFP 5If you specify fewer decimal places than are in nExpression, the extra digits are truncated.

HELP VFP 6If you specify fewer decimal places than are in nExpression, the return value is rounded.

Т.е. до 5 версии включительно лишние действительно отбрасывались, а начиная с VFP6 - округляются.

Ну, а твою проблему можно решить проще:

Код: plaintext
1.
2.
3.
4.
LOCAL lnSum, lcSum
lnSum =  120584 . 55 
lcSum = TRANSFORM(m.lnSum)
lcSum = StrTran(m.lcSum,SET("POINT")," руб. ") + " коп."
?m.lcSum
...
Рейтинг: 0 / 0
19.04.2005, 16:35
    #33023692
vital345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по str
дико извиняюсь
просто help у меня от 5 фокса, а сам фокс 6
вот и напоролся
спасибо большое
...
Рейтинг: 0 / 0
22.04.2005, 08:58
    #33029160
вопрос по str
2 ВладимирМ

Красиво !
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вопрос по str / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]