Question

vb 两个时间之间 按钮可操作

我想让 一个按钮在2012年6月1日 14：00 - 16：00之间可点击，其余时间无响应，怎么达到这个效果！急呀！！！

Answer 1

Private Sub Command1_Click()
If CDate(Date) = CDate("2012年6月1日") Then
If CDate(Time) < CDate("14:00") Then
MsgBox "时间还没到", vbCritical
Else
If CDate(Time) > CDate("16:00") Then
MsgBox "超过时间了", vbCritical

Else
MsgBox "这里就可以写上你的代码了"
End If
End If
Else
MsgBox "今天是" & CDate(Date) & vbCrLf & "而不是2012年6月1日", vbCritical
End If
End Sub

Answer 2

'添加一个计时器控件,名称为"Timer1"
Private Sub Form_Load()
Timer1.Interval = 1000
Command1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Year(Date) = 2012 And Month(Date) = 6 And Day(Date) = 1 Then
If Time = "14:00:00" Then Command1.Enabled = True
If Time = "16:00:00" Then Command1.Enabled = False
End If
End Sub

Answer 3

if Hour(now) =14 or hour(now)=15 then
.....
else
exit sub
end if
或
if hour(now)=14 or hour(now)=15 then
me.command1.visible=true
else
me.command1.visible=false
end if