请教VB程序
刘玉蓉
发布于2014-09-16 17:03
44
0
标签：
现在在编程，遇到一个功能，不知道用VB怎么编出来，希望赐教！
dim tag1,tag2tag3,tag4...
if (条件成立时）then
tag1=指定的变量的值（例A1)
当过半小时后，tag2=A1的值
再过半小时，tag3=A1的值
...
就这样循环，这个过半小时怎么用VB表达出来呢，还是可以用全局脚本中的定时器啊？如果是用定时器，那么请给个阅读文件学习一下。。。
佳答案
那你肯定要用全局脚本来做了，因为你要时时监测时间差的，可以这样做；
dim tag1,tag2,tag3,tag4
dim temptime
dim num
dim
if (条件成立)
temptime=now ""记录下当前的时间
num=DateDiff("n", temptime, now) """"取当前时间于条件满足时刻的时间差
select case num
case 0 ""条件刚满足时时间差为0
tag1=A1
case 30
tag2=A1 ""条件满足半小时以后
case 60
tag3=A1
case 90
tag4=A1
case else
end select
end if
这样给全局脚本添加一个定时器，比如十分钟一次，这样当条件满足时，每隔半小时tag1-tag4的变量会依次赋值了。
