|
Действия ...
|
22.05.2009, 19:09:48
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
22.05.2009, 18:58:50
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Здравствуйте всем. Подскажите, пожалуйста аналоги функций Excel в VBA ОКРУГЛ(число;число_разрядов) -> Round(expression [,numdecimalplaces]) ОКРУГЛВВЕРХ(число;число_разрядов) -> ? ОКРУГЛВНИЗ(число;число_разрядов) -> ? Я так понял аналогов нет, а как бы написать подобное? Спасибо заранее. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.05.2009, 19:09:48
|
|||
|---|---|---|---|
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Nevsky2006, Вниз до второго знака ? int(12.345*100)/100 Вверх до второго знака ? -int(-12.345*100)/100 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.05.2009, 21:59:51
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Код: plaintext 1. 2. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.05.2009, 02:08:09
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Dim MyNumber MyNumber = Int(99.8) ' Returns 99. MyNumber = Fix(99.2) ' Returns 99. MyNumber = Int(-99.8) ' Returns -100. MyNumber = Fix(-99.8) ' Returns -99. MyNumber = Int(-99.2) ' Returns -100. MyNumber = Fix(-99.2) ' Returns -99. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.05.2009, 02:22:58
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Int(m * (10 ^ n)) / (10 ^ n) Fix(m * (10 ^ n)) / (10 ^ n) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.05.2009, 03:18:23
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Dim m Function okrv(m) n = 3 If m = Int(m * (10 ^ n)) / (10 ^ n) Then _ okrv = Int(m * (10 ^ n)) / (10 ^ n) Else _ okrv = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) End Function Function okrn(m) n = 3 okrn = Fix(m * (10 ^ n)) / (10 ^ n) End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.05.2009, 03:51:02
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Dim m Function okrv(m) n = 3 If m >= 0 Then If m = Int(m * (10 ^ n)) / (10 ^ n) Then _ okrv = Int(m * (10 ^ n)) / (10 ^ n) Else _ okrv = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) Else okrv = Int(m * (10 ^ n)) / (10 ^ n) End If End Function Function okrn(m) n = 3 okrn = Fix(m * (10 ^ n)) / (10 ^ n) End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.05.2009, 05:04:49
|
|||
|---|---|---|---|
|
|||
ОКРУГЛВВЕРХ, ОКРУГЛВНИЗ в VBA |
|||
|
#18+
Dim m Function okrv(m) n = 3 If m >= 0 Then If m = Int(m * (10 ^ n)) / (10 ^ n) Then okrv = Int(m * (10 ^ n)) / (10 ^ n) Else okrv = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) Else okrv = Int(m * (10 ^ n)) / (10 ^ n) End If End Function Function okrn(m) n = 3 If m >= 0 Then If m = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) Then okrn = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) Else okrn = Int(m * (10 ^ n)) / (10 ^ n) Else If m = Fix(m * (10 ^ n)) / (10 ^ n) Then okrn = Fix(m * (10 ^ n)) / (10 ^ n) Else okrn = Int(m * (10 ^ n)) / (10 ^ n) + 1 / (10 ^ n) End If End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2179445]: |
0ms |
get settings: |
9ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
260ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 224ms |
| total: | 574ms |
| 0 / 0 |
