以下时间如何写公式?

真主

8:00等于8:00

8:01等于8:30

8:29等于8:30

8:30等于8:30

8:31等于9:00

8:59等于9:00

.....................

软件下载

以下是引用真主在2004-11-25 20:09:06的发言：



8:00等于8:00

8:01等于8:30

8:29等于8:30

8:30等于8:30

8:31等于9:00

8:59等于9:00

.....................

tm = Minute(Time())

Select Case tm

Case 0

tm = Format(Time(), "HH:MM")

Case Is < 31

tm = Format(Time(), "HH" & ":30")

Case Is > 30

tm = Format(CDate(Hour(Time()) + 1 & ":00"), "H:M")

End Select

MsgBox tm

真主

搞定了,比较简化-Int(-(DateDiff("n",#0:00:00#,[上])/30))/2