UC知道VB规定某一时间发生某事件问题,望高人指点。
来源：百度知道 编辑：UC知道 时间：2024/05/29 14:40:16
如:
我用time()获取了系统时间,假设时间为16:30:l5,从现在开始过70分钟后,发生frmeye.hide，那么怎样用(16:30:15 + 70分钟 得到发生事件的时间)怎么样16:30:15 + 70分钟？？？
那时间系统时间是一个变量，随时变化的。不一定是17：40：15
那个程序是这样的：
一共有16个文本框，14个分别为7节课的上课时间和下课时间，由用户输入两个文本框的值a(也就是学习时长，上课时间多长) 和b(休息的时间多长)，所以将14个文本框成一个数组控件text1(i) i = 1 to 14 也就是一个上和下课提醒的程序。所以要在读取的系统时间累加，到上课或下课就打开 上课 或 下课 的窗口，提醒。
分析如下:1-8分别为上课下课,a为上课时长,b为下课时长。
我们会发现,它们存在一定规律,如
1 a 2 b
3 a 4 b
5 a 6 b
7 a 8 b
1 +0 2 +a
3 +a+b 4 +2a+b
5 +2a+2b 6 +3a+2b
7 +3a+3b 8 +4a+3b
1 2 不加b
3 4 只加一个b
..........还有a也有规律
如 2 3 只加一个a ....
单数，双数也有很有用的规律。。。。。
笔者用到的规律是: i 服从 +(cint(i/2)*a) + (cint(i/2)-1)
提问者不是说用了(i)1-14的数组的控件吗？为了简便，与此结合起来。
Dim EHour(14) As Integer Dim EMin(14) As Integer
Dim ESec(14) As Integer
Private Sub cmdyes_Click()
Dim SHour As Integer
Dim SMin As Integer
Dim SSec As Integer
dim i as integer
下面的规律，你应该自己去设计，如果实在不知道，再来问我，多想一相吧！
(cint(i/2)) * a +(cint(i/2) - 1) * b
16:30:15+70分钟就是:17 :40:15也就是在这个时间到达时候,事件:frmeye.hide发生对吧....用这下面这个应该可以...
if time(hour)=17 and time(minute)=40 and time(second)=15 then
frmeye.hide