[решено] округление дат

[golovatov]

Все доброго дня.
Прошу мне снова помочь.
есть задача округления времени
если значение времени за 14 минут до начала следующего часа, то округлить к следующему часу+1 минута
(пример: если 22:46, то округлить до 23:01)
если значение в интервале от 00 до 15 мин, то округлить до 01 ( пример, если 01:08 , то округлить до 01:01)
если значение в интервале от 15 до 45 мин, то округлить до 31 (пример: если 20:44, то округлить до 20:31)
только это надо прописать вот в таком логическом выражении
if ? then ? else ? endif

Помогите пожалуйста.

[a_axe]

golovatov, попробуйте использовать формулу вида:
=ВРЕМЯ(ЧАС($B$2);ЕСЛИ(МИНУТЫ($B$2)>45;61;ЕСЛИ(МИНУТЫ($B$2)>15;31;1));0)
(ссылки даны на ячейку $B$2, для того, чтобы формулу можно было заменить - замените на относительную ссылку "B2".

[golovatov]

a_axe, а можете показать как это будет выглядеть ,используя выражения , о которых я говорил
if время за 14 минут до начала следующего часа,then round к следующему часу+1 минута...
т.е. как будто ввиде макроса прописывается. ну или в стиле SQL. используя этот оператор if

[a_axe]

golovatov, функция округлить тут не очень подходит - даты в экселе исчисляются в сутках, соответственно один час - это 0,04166[6] по абсолютному значению. На VBA код будет выглядеть приблизительно так (округления я не использую):
Public Function timeround(time As Date)
Dim min As Date
min = Minute(time)
If min > 45 Then min = 61 Else If min > 15 Then min = 31 Else min = 1
timeround = TimeSerial(Hour(time), min, 0)

End Function

или с оператором Select Case:
Public Function timeround2(time As Date)
Dim min As Date
min = Minute(time)
Select Case min
Case Is > 45
min = 61
Case Is > 15
min = 31
Case Else
min = 1
End Select

timeround2 = TimeSerial(Hour(time), min, 0)

End Function