关于在VB中时间范围判断问题???????????????????????????????????

Question

关于在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中如何写???????????????????? 
--

Answer 1

Function TimeChk(TmpTime As Date)
        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