Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как округлить число? / 5 сообщений из 5, страница 1 из 1
01.07.2004, 12:21:13
    #32584899
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как округлить число?
Задача округлить число 32774.32258 например до 32800
или 2048.387097 до 2300

т.е. до сотни.

В целом задача такая - есть количество литров за месяц например 1 016 004 надо его разбросать по дням месяца по одинаковому количеству литров в день + в один из дней добрать оставшееся.

пока не могу придумать как это сделать. буду признателен за помощь.
...
Рейтинг: 0 / 0
01.07.2004, 12:25:34
    #32584918
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как округлить число?
round(a, -2)
...
Рейтинг: 0 / 0
01.07.2004, 12:33:07
    #32584941
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как округлить число?
если функции нет - 97

Код: plaintext
1.
2.
?(int( 32774 . 32258 / 100 + 0 . 5 ))* 100 
  32800  
...
Рейтинг: 0 / 0
01.07.2004, 12:58:25
    #32585009
Birjan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как округлить число?
Есть вопросы по сути задачи. По каким дням распределять литры (выходные)? Когда это делать? В какой день дораспреспрелять остаток (в последний?)?
...
Рейтинг: 0 / 0
01.07.2004, 13:11:12
    #32585060
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как округлить число?
kedzoЗадача округлить число 32774.32258 например до 32800
или 2048.387097 до 2300

т.е. до сотни.

В целом задача такая - есть количество литров за месяц например 1 016 004 надо его разбросать по дням месяца по одинаковому количеству литров в день + в один из дней добрать оставшееся.

пока не могу придумать как это сделать. буду признателен за помощь.

я бы сделал так:
- делим объём на (N_дней_месяце-1)
- берём от частного целую часть - это суточная норма
- умножаем на (N_дней_месяце-1)
- разница произведения и обьёма даёт остаток - на последний день



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim Vol As Double
Dim CtDay As Long
Dim Razday As Double
Dim Delta As Double
Dim MyTest As Double
CtDay =  31 
Vol =  1016004 
Razday = Int(Vol / (CtDay -  1 ))
Delta = Vol - (Razday * (CtDay -  1 ))
MyTest = Razday * (CtDay -  1 ) + Delta
Debug.Print Razday; Delta; MyTest
 '33866  24  1016004
 
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как округлить число? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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