关于在VB中时间范围判断问题??????????????????????????????????? 判断一个时间 是否在上午8点30到11点30分, 下午14点30到晚上21点范围内
例如像DELPHI那样 var
temptime,timea,timeb,timec,timed:tdatetime; begin
temptime:=strtotime( '9:08');
timea:=strtotime('8:30' );
timeb:=strtotime('11:30' );
timec:=strtotime('14:30' );
timed:=strtotime('21:00' ); if ( (temptime>timea ) and (temptime<timeb )) or
( (temptime>timec ) and (temptime<timed ))
then
showmessage('在范围内 ') else
showmessage('不在范围内') ;
请问在VB和VBSCRIPT中如何写????????????????????
--
解决方案 »
- 知道一个程序的控件的句柄,如何实现用sendmessage实现鼠标点击,谢谢!!
- VB+ACCESS数据库自动编号问题
- MSFLEXGRID中的数据如何导出和打印(需包括表格线和合并的单元格)
- 限制文本框里的数字必须为整数,但可包含小数点,如4.0, 5.0,用代码怎么判断?谢谢!
- 如何删除MDI窗体中的Picture背景?
- 解决这个简单的问题
- form1.ShowInTaskbar 为什么不能控制?怎样解决?谢谢~~
- 十万火急,快来拿分!!!!
- 急急急急!在VB6.0中怎样用MSXML的方法来判断一个XML文件是否符合XML Schema的格式?
- 怎么设置Listbox!急!急!
- 各位领袖帮忙了,急死人了~~~~~~~~~~~~~~~~~~
- 向大家请教个小问题?在线等候,一回答就感谢你!
Dim Timearr() As Date
Timearr = Split("8:30,9:08,11:30,14:30,21:00", ",")
If (TmpTime > Timearr(0) And (TmpTime < Timearr(1)) Or _
(TmpTime > Timearr(2) And TmpTime < Timearr(3))) Then
MsgBox "在范围内"
Else
MsgBox "不在范围内"
End If
End Function