[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