作业帮 > 数学 > 作业

vb判断时间点是否在这段时间内 时间的加减

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/06/05 09:58:19
vb判断时间点是否在这段时间内 时间的加减
时间1; 小时在text1,分钟在text2
时间2; 小时在text3,分钟在text4
以19:00为界限
时间1与19;00比较得出时间差(为多少分钟)放在text5中 并判断是否在19;00点前还是后,在前的话then.else.
时间2与19;00比较得出时间差(为多少分钟)放在text6中 并判断是否在19;00点前还是后,在前的话then.else.
两个判断完后以分钟格式相加放在text7中
单击事件
vb判断时间点是否在这段时间内 时间的加减
以你的,也没有用到什么真正的时间相加
text5.text=(int(text1.text)-17)*60+int(text2.text)
if (cint(text5.text)>0) then '在前面
else
'在后面
end if
时间2 和这个类似
再问: Private Sub Command1_Click() x = (Int(Text1.Text) - 19) * 60 + Int(Text2.Text) If (CInt(Text5.Text) < 0) Then Text5.Text = -Text5.Text * (32 / 60) ElseIf (CInt(Text5.Text) > 5) Then Text5.Text = Text5.Text * (69 / 60) ElseIf (Val(Text1.Text = 1 Or 2 Or 3 Or 4 Or 5 Or 6)) Then Text5.Text = (Int(Text1.Text - 12)) * 60 + Int(Text2.Text) Text5.Text = Text5.Text * (32 / 60)‘24点以后没法弄了
再答: DateDiff 你查下!这个是计算时间差的! 主要我不知道 你问的东西有什么用处!只能有"时,分"参数的只能算一天的时间.再多 难道我们要用25点当1点吗!