Как обычно, уже голова не варит, кто посвежее, подскажите как рассчитать на VBA такой случай:
есть числа, и есть определённый лимит, скажем, 1руб. за каждые 500. Лучше наглядно:
488 = 1р. (потому что лимит до 500, а 500 это 1р.)
728 = 2р. (потому что первые 500 = 1р., и 278, это уже вторые 500, тоже = 1р.)
10 = 1р.
1520 = 4р. (тут 3 по 500 и 20 уже входит в новые 500)
ну и т.д.
уже нагородил формул всяких, кошмар. Попроще есть идеи?
Думал, чтото насчёт:
есть числа, и есть определённый лимит, скажем, 1руб. за каждые 500. Лучше наглядно:
488 = 1р. (потому что лимит до 500, а 500 это 1р.)
728 = 2р. (потому что первые 500 = 1р., и 278, это уже вторые 500, тоже = 1р.)
10 = 1р.
1520 = 4р. (тут 3 по 500 и 20 уже входит в новые 500)
ну и т.д.
уже нагородил формул всяких, кошмар. Попроще есть идеи?
Думал, чтото насчёт:
Код |
---|
a = Round(myval / 500) If Not myval mod 500 = 0 then a = a + 1 End if |