powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вопрос по str
4 сообщений из 4, страница 1 из 1
вопрос по str
    #33023609
vital345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
что-то я торможу совсем. Рушится мировоззрение понимаешь
есть число 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
вопрос по str
    #33023645
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"Если ничего не получается, прочтите, наконец, инструкцию" (с)

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
вопрос по str
    #33023692
vital345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
дико извиняюсь
просто help у меня от 5 фокса, а сам фокс 6
вот и напоролся
спасибо большое
...
Рейтинг: 0 / 0
вопрос по str
    #33029160
2 ВладимирМ

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


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