Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция возвращения дробной части / 6 сообщений из 6, страница 1 из 1
18.01.2010, 12:57
    #36415730
KpaqpTuk
KpaqpTuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
Вроде была в VFP функция которая возвращала дробную часть (противоположность INT[]) числа или я ошибаюсь, перерыл все отчеты функцию так и не нашел, есть ли таковая вообще?
Сейчас на время сделал так:
Код: plaintext
1.
2.
__pST = Число формата *,?? к примеру  2 , 79 
INT((__pST-INT(__pST))* 100 )
Возвращает - 79
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 13:11
    #36415781
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
KpaqpTukВроде была в VFP функция которая возвращала дробную часть (противоположность INT[]) числа или я ошибаюсь, перерыл все отчеты функцию так и не нашел, есть ли таковая вообще?


Как таковой функции нет, т.к. дробная часть весьма тонкое дело. Но это ведь элементарно :
Код: plaintext
1.
drobnaya=chislo-INT(chislo)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 13:24
    #36415838
KpaqpTuk
KpaqpTuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
да только это вернет 0,79 а нужно 79 (копейки), к примеру:
Код: plaintext
1.
Alltrim(STR(INT(Chislo)))+' рубля '+Alltrim(STR(INT((Chislo-INT(Chislo))* 100 )))+' коп.'
Я почему-то был уверен что использовал ее, возможно попутал с MOD()
Все спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 17:00
    #36416412
quxix
quxix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
KpaqpTukда только это вернет 0,79 а нужно 79 (копейки), к примеру:
Код: plaintext
1.
Alltrim(STR(INT(Chislo)))+' рубля '+Alltrim(STR(INT((Chislo-INT(Chislo))* 100 )))+' коп.'
Я почему-то был уверен что использовал ее, возможно попутал с MOD()
Все спасибо
Так пойдёт? ;)
Код: plaintext
1.
x= 56 . 98 
?LTRIM(str(x/ 1 , 10 , 0 ))+' руб. '+CHRTRAN(str(x% 1 * 100 , 2 , 0 ),' ','0')+' коп.'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 17:18
    #36416452
KpaqpTuk
KpaqpTuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
quxixKpaqpTukда только это вернет 0,79 а нужно 79 (копейки), к примеру:
Код: plaintext
1.
Alltrim(STR(INT(Chislo)))+' рубля '+Alltrim(STR(INT((Chislo-INT(Chislo))* 100 )))+' коп.'
Я почему-то был уверен что использовал ее, возможно попутал с MOD()
Все спасибо
Так пойдёт? ;)
Код: plaintext
1.
x= 56 . 98 
?LTRIM(str(x/ 1 , 10 , 0 ))+' руб. '+CHRTRAN(str(x% 1 * 100 , 2 , 0 ),' ','0')+' коп.'


Можно и так:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2010, 19:43
    #36416748
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция возвращения дробной части
KpaqpTuk,

Если нужны копейки, то можно так:

cena = 123.56
? round(mod(cena, int(cena))*100, 0)
? round(cena % int(cena)*100, 0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция возвращения дробной части / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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