如何实现菜单项A每天9：30之前出现，之后消失？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用comnets在2013-8-12 16:59:00的发言：
哦。知道了。

我找到了获取服务器时间的代码

Dim cmd As New SQLCommand
Dim dt As Date
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

怎样判断dt的时间部分（不包括日期）和9:30的关系？

Dim cmd As New SQLCommand

Dim dt As Date

cmd.C

cmd.CommandText = "Select GetDate()"

dt = cmd.ExecuteScalar()

Dim d As New Date(dt.Year, dt.Month, dt.Day, 9, 30, 0)

if dt > d then

'消失

end if

主题：如何实现菜单项A每天9：30之前出现，之后消失？