timer 控件的问题
timer 控件的时间间隔最多好像只有不到一分钟,我想问下能不能把间隔延长,要10-20分钟,如何做呢? --------------------编程问答-------------------- 循环定时,timer控件到时间了重新设置interval继续走就是了。 --------------------编程问答-------------------- 最简便的方法:先定义一个全局date型变量,如:startTime as date
在timer.enabled前,将startTime=now
然后timer.enabled
在timer体内判断现在时间是否比startTime定义的时间多20分钟 --------------------编程问答-------------------- timer控件是循环的定时器,如果lz只想timer_timer事件中执行一次操作,设置个全局标志位变量判断就可以。 --------------------编程问答-------------------- 在Timer_timer事件里,使用If DateDiff("s",nStartTime,now()) >=60*20 Then判断一下。 --------------------编程问答-------------------- interval属性设置为60000 (一分钟)
Private Sub Timer1_Timer()--------------------编程问答--------------------
Static idx As Long
idx = idx + 1
If idx = 3 Then '3分钟检测一次
'……代码
idx = 0
End If
End Sub
英雄所见略同 --------------------编程问答-------------------- Option Explicit
Public a As Integer
Private Sub Form_Load()
a = 0
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If a < 5 Then '这里是5秒,要更长时间改更大
a = a + 1
Else
MsgBox ("时间到") '这里是你要执行的程序块
a = 0
End If
End Sub --------------------编程问答-------------------- 在Timer中使用DateDiff来判断,关于DateDiff的使用方法参见:
DateDiff 函数 语言参考
起始页 | 版本 2
请参阅
--------------------------------------------------------------------------------
描述
返回两个日期之间的时间间隔。
语法
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数:
参数 描述
interval 必选。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值,请参阅“设置”部分。
date1, date2 必选。日期表达式。用于计算的两个日期。
firstdayofweek 可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。
firstweekofyear 可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。
设置
interval 参数可以有以下值:
设置 描述
yyyy 年
q 季度
n 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒
firstdayofweek 参数可以有以下值:
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日(默认)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值:
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始(默认)。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。
说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当 interval 为“一周的日数”(“w”)时,DateDiff 返回两个日期之间的星期数。如果 date1 是星期一,则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”(“ww”),则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日,DateDiff 将计算 date2,但即使 date1 是星期日,也不会计算 date1。
如果 date1 晚于 date2,则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字,则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份,则在代码中每次计算 date1 或 date2 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,DateDiff 返回 1 表示相差一个年份。
下面例子利用 DateDiff 函数显示给定日期和当天日期之间的天数:
Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function
--------------------编程问答--------------------
鄙视下不结贴滴 --------------------编程问答-------------------- 呵呵。。。。飘过。看来上面的已经给出了很好的答案 --------------------编程问答-------------------- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sleep timer1.interval*10 --------------------编程问答-------------------- 在代码中实现 --------------------编程问答--------------------
Dim dtNextTime as Date
Private Sub Form_load()
Timer1.interval=500
Timer1.Enabled=True
dtNextTime=DateAdd("n",15,Now)'15分钟执行一次任务
End Sub
Private Sub Timer1_Timer()
if Now>=dtNextTime Then
Timer1.Enabled=False
'在此加入你的代码
dtNextTime=DateAdd("n",15,Now)
Timer1.Enabled=True
End if
End Sub
补充:VB , 控件