189 8069 5689
1、时间可以直接比较大小，定义两个时间的变量，直接使用或者即可判断，跟数据大小判断是一样的
创新互联公司2013年开创至今，是专业互联网技术服务公司，拥有项目成都网站制作、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元胶州做网站,已为上家服务,为胶州各地企业和个人服务,联系电话:18980820575
2、时间差值，可以使用DateDiff函数进行
3、比如取一个现在的时间now，使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒
如果带年就能判断
例如
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
'在区间
else
'不在区间
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 "在范围内！"
Else
MsgBox "不在范围内！"
End If
End Sub
'00:00:00-00:00:00
'人懒啦,用time获取的时间都是符合格式的
所以就不做是否为数字的判断
Private
Sub
Command1_Click()
'记录开始时间
Text1.Text
=
Time
End
Sub
Private
Sub
Command2_Click()
'记录结束时间
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
"错误"
Else
MsgBox
"现在时间在指定范围"
End
If
End
Sub
在Timer控件里面编程，interval设为1分钟，判断系统时间为上午10点或者下午5点30分，启动发送邮件的程序，如果系统时间不是上述时间，则退出。
这跟VB关系不大，取决于你用的什么数据库，如果是access，一般可以写做
"Select * from 上班 where 上班时间=#" t "# and 下班时间=#" t "#"
如果是其它数据库，请依据数据库本身对时间的转换要求来进行。