Необычное округление: 2,3=3 и 2,6=3 Как написать формулу?

[sonata]

Необычное округление: 2,3=3 и 2,6=3 Как написать формулу?

[RayShade]

Вот так:



i = (i\1)+1



Или, даже вот так: if i-(i\1)>0 then i = (i\1)+1

[sonata]

не совсем корректно, а если число -целое, то округлений в большую сторону быть не должно....

[corgi]

2RayShade твоя функция неправильно округлит например число 5
я бы сделал так:
i = (i+0.49999999999999)\1

[RayShade]

Твоя то функция точно неправильно округлит Потому что у нее точность ограничена девяткой в периоде. А мой вариант округлит все как надо. Я его поправил. Прочитай внимательно постинг еще раз.

[sonata]

If (Mode(kkvartal <> 0)) Then
kkvartal = (kkvartal \ 1) + 1
End If

Не срабатывает mode или mod.короче необходимо сравнить наличие/отсутствие дробной части...Как это сделать?

[RayShade]

Кхм! Повторяюсь спциально для тех, у кого не работает Refresh в браузере!

if i-(i\1)>0 then i = (i\1)+1

[gaidar]

Хорошей округление, так и хочется спросить: "Покупаем или продаем?"

[sonata]

RayShadeИзвини за занудство,
такие 2,333=3, а вот такие 2,6667=2,6667, а должно быть также 3....

[sonata]

gaidar, Хороший вопрос , на самом деле всего лишь пытаюсь определиться с временными периодами, точнее бухгалтерскими кварталами....Т.е. если значение больше целого числа,то следующий квартал все-таки захвачен

[RayShade]

Тогда так: If i - (i \ 1) > 0 Then i = (i \ 1) + 1 Else i = (i \ 1)

[sonata]

Ну вот, наконец-то можно подвести итог беседе:
Может быть кому пригодится бухгалтерская функция, для определения кол-ва захваченных кварталов за период, например для подписки....есть ли бухгалтера на этом форуме?

Код: Выделить всё

Function kkvartal(date1, date2)
kkvartal = (12 * (Year(date2) - Year(date1)) + Month(date2) - Month(date1) + 1) / 3
If ((kkvartal - (kkvartal \ 1) > 0)) Then
kkvartal = (kkvartal \ 1) + 1
Else
kkvartal = (kkvartal \ 1)
End If

[RayShade]

Неужели вопрос решился? Я просто поверить не могу... Всего каких то 20 постингов и все окей

[GSerg]

О боже ж ты мой... Люди, ну sonata же в экселе кодит! Поэтому Application.RoundUp(Number, 0)

[sonata]

Я чувствовала, что есть простое и гениальное решение!!!!
Спасибо!