Office中国论坛/Access中国论坛

标题: 以下时间如何写公式? [打印本页]

作者: 真主 时间: 2004-11-26 04:09
标题: 以下时间如何写公式?
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-26 07:54

以下是引用真主在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

作者: 真主 时间: 2004-11-26 19:36
搞定了,比较简化-Int(-(DateDiff("n",#0:00:00#,[上])/30))/2

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)