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


Как таковой функции нет, т.к. дробная часть весьма тонкое дело. Но это ведь элементарно :
Код: plaintext
1.
drobnaya=chislo-INT(chislo)
...
Рейтинг: 0 / 0
18.01.2010, 13:11
| Ответить | Цитировать | Написать  
Функция возвращения дробной части
    #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, 13:24
| Ответить | Цитировать | Написать  
Функция возвращения дробной части
    #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:00
| Ответить | Цитировать | Написать  
Функция возвращения дробной части
    #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, 17:18
| Ответить | Цитировать | Написать  
Функция возвращения дробной части
    #36416748
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
KpaqpTuk,

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

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


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