timer 控件的问题

[hxrhanxu]

timer 控件的时间间隔最多好像只有不到一分钟，我想问下能不能把间隔延长，要10-20分钟，如何做呢？

[xuggzu]

循环定时，timer控件到时间了重新设置interval继续走就是了。

[i1u0i1u0]

最简便的方法：
先定义一个全局date型变量，如：startTime as date
在timer.enabled前,将startTime=now
然后timer.enabled
在timer体内判断现在时间是否比startTime定义的时间多20分钟

[xuggzu]

timer控件是循环的定时器，如果lz只想timer_timer事件中执行一次操作，设置个全局标志位变量判断就可以。

[赵4老师]

[Quote=引用 5 楼 king06 的回复:]
interval属性设置为60000 （一分钟）

VB code
Private Sub Timer1_Timer()
Static idx As Long
idx = idx + 1

If idx = 3 Then '3分钟检测一次
'……代码
idx = 0
End If
End Sub
……
[/Quote]
英雄所见略同

[lyserver]

在Timer_timer事件里，使用If DateDiff("s",nStartTime,now()) >=60*20 Then判断一下。

[king06]

interval属性设置为60000 （一分钟）

Private Sub Timer1_Timer()
    Static idx As Long
    idx = idx + 1
    
    If idx = 3 Then '3分钟检测一次    
        '……代码
        idx = 0
    End If
End Sub

[cnuser1]

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

[dl20070302]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


sleep timer1.interval*10

[moke520]

鄙视下不结贴滴

[Xyz_123]

呵呵。。。。飘过。看来上面的已经给出了很好的答案

[myy168]

在代码中实现

[chinaboyzyq]

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