ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Округлить число (модуль в Access 97)
5 сообщений из 5, страница 1 из 1
Округлить число (модуль в Access 97)
    #32198592
guest__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest__
Участник
Имеющаяся функция Int отбрасывает все знаки после запятой то есть int(5.9)=5. Функция Round работает в AccessХР а вот в 97 такой функции нет. Как можно округлить число чтоб 5.9 округлилось в 6?
...
Рейтинг: 0 / 0
03.07.2003, 15:25
| Ответить | Цитировать | Написать  
Округлить число (модуль в Access 97)
    #32198595
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Int(x + 0.5)
...
Рейтинг: 0 / 0
03.07.2003, 15:27
| Ответить | Цитировать | Написать  
Округлить число (модуль в Access 97)
    #32198604
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
2Саныч\r
\r
А пАчЕмУ + 0,50, а не 0,3? \r
\r
Guest - см. /topic/38108\r
там внутри ссылочка на болееразвернутое обсуждение
...
Рейтинг: 0 / 0
03.07.2003, 15:29
| Ответить | Цитировать | Написать  
Округлить число (модуль в Access 97)
    #32198627
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Виктор, привет. :^) Я не заметил, мне кажется, что мы еще не дообсуждали. Я помню, что у тебя альтернативная версия 0.49 (или 0.49999), и хорошо, что ты сюда пришел. По-моему, в данном случае очевидно, что 0.49 не годится.

Int(0.505 + 0.49) = Int(0.995) = 0
Int(0.505 + 0.5) = Int(1.005) = 1

Я в том топике неправильно привел пример. По твоему способу неверно считается не от 0.49 до 0.5, а от 0.5 до 0.51.
...
Рейтинг: 0 / 0
03.07.2003, 15:36
| Ответить | Цитировать | Написать  
Округлить число (модуль в Access 97)
    #32198649
Predator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predator
Гость
Универсальна функция округления

Public Function RoundTwo(s As Variant) As Currency
'Округлят аргумент до двух знаков после запятой
' при возникновении ошибки возвращает НОЛЬ
Dim x As Long
On Error GoTo RoundTwoErr
x = Int(s * 100)
If s * 100 - x < 0.5 Then
RoundTwo = CCur(x / 100)
Else
RoundTwo = CCur((x + 1) / 100)
End If
Exit Function
RoundTwoErr: 'Метка обработчика ошибок
RoundTwo = 0
Err.Clear
End Function

Пользуйтесь
...
Рейтинг: 0 / 0
03.07.2003, 15:46
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Округлить число (модуль в Access 97)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32198604&tid=1680739]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 228ms
total:  352ms
созд. / загр.: 352ms
x
x
Закрыть


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