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 "#"
如果是其它数据库,请依据数据库本身对时间的转换要求来进行。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款