1、時(shí)間可以直接比較大小,定義兩個(gè)時(shí)間的變量,直接使用或者即可判斷,跟數(shù)據(jù)大小判斷是一樣的
創(chuàng)新互聯(lián)公司2013年開創(chuàng)至今,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站制作、成都網(wǎng)站建設(shè)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元膠州做網(wǎng)站,已為上家服務(wù),為膠州各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
2、時(shí)間差值,可以使用DateDiff函數(shù)進(jìn)行
3、比如取一個(gè)現(xiàn)在的時(shí)間now,使用Year、month、day、hour、min、sec函數(shù)可以取到now的年份、月、日、小時(shí)、分鐘和秒
如果帶年就能判斷
例如
dim dtFrom as date
dim dtTo as date
dim dtVar as date
dtVar = dateserial(2008,2,8)
dtFrom = dateserial(2008,1,21)
dtTo = dateserial(2008,2,21)
if dtVar = dtFrom and dtVar= dtTo then
'在區(qū)間
else
'不在區(qū)間
end if
Private Sub Command1_Click()
Dim d1 As Date
d1 = #9:01:00 AM#
If d1 = #8:00:00 AM# And d1 = #9:30:00 AM# Then
MsgBox "在范圍內(nèi)!"
Else
MsgBox "不在范圍內(nèi)!"
End If
End Sub
'00:00:00-00:00:00
'人懶啦,用time獲取的時(shí)間都是符合格式的
所以就不做是否為數(shù)字的判斷
Private
Sub
Command1_Click()
'記錄開始時(shí)間
Text1.Text
=
Time
End
Sub
Private
Sub
Command2_Click()
'記錄結(jié)束時(shí)間
Text1.Text
=
Text1.Text
"-"
Time
End
Sub
Private
Sub
Command3_Click()
'判斷
If
Mid(Text1.Text,
1,
8)
Mid(Text1.Text,
10,
8)
Then
MsgBox
"對不起
輸入有誤"
ElseIf
Val(Mid(Text1.Text,
1,
2))
24
Or
_
Val(Mid(Text1.Text,
10,
2))
24
Or
_
Val(Mid(Text1.Text,
4,
2))
60
Or
_
Val(Mid(Text1.Text,
13,
2))
60
Or
_
Val(Mid(Text1.Text,
6,
2))
60
Or
_
Val(Mid(Text1.Text,
16,
2))
60
Then
MsgBox
"錯(cuò)誤"
Else
MsgBox
"現(xiàn)在時(shí)間在指定范圍"
End
If
End
Sub
在Timer控件里面編程,interval設(shè)為1分鐘,判斷系統(tǒng)時(shí)間為上午10點(diǎn)或者下午5點(diǎn)30分,啟動發(fā)送郵件的程序,如果系統(tǒng)時(shí)間不是上述時(shí)間,則退出。
這跟VB關(guān)系不大,取決于你用的什么數(shù)據(jù)庫,如果是access,一般可以寫做
"Select * from 上班 where 上班時(shí)間=#" t "# and 下班時(shí)間=#" t "#"
如果是其它數(shù)據(jù)庫,請依據(jù)數(shù)據(jù)庫本身對時(shí)間的轉(zhuǎn)換要求來進(jìn)行。