用定时器每隔一段时间运行程序

[miceyou]

我把程序写在Private Sub Command1_Click()下面 我想每小时13分、23分、33分、43分、53分每隔10分钟运行一次。

[SP12345678902]

1楼的程序不准
只是说明了十分钟之后会做某件事情
但是如果你不是03分钟的起起来这个程序
那么过了十分钟，也不是13，23，33。。。

2楼的说法合理的
可以设置一个定时器
间隔设置为1分钟
然后只需要和本地时间比较分钟就可以了
和13，23，33，43，53切合上就可以了

[啊的发哦]

白痴一个，给个分钟的完整代码，在加上个小时就不会了，改行吧。

[miceyou]

5楼 胡说八道一个 加个小时，你白痴吧。

[啊的发哦]

[Quote=引用 6 楼 miceyou 的回复:]

5楼 胡说八道一个 加个小时，你白痴吧。
[/Quote]
擦，你怎么结贴了。

你的问题根本在于是时间点的卡位。

1楼的代码，效率低但思路给了，稍微改下就能实现你的需求。

至于每个小时，搞笑呢吧，和小时有关系？？问题关键还没抓住。

[miceyou]

虽然我是初学者 编写代码简陋
但是我在楼上几个人的帮助提示下 把程序写出来了。
Private Sub Form_Load()
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
mi = Minute(Time)
If mi = 3 Or mi = 13 Or mi = 23 Or mi = 33 Or mi = 43 Or mi = 53 Then
End If
End Sub

[booksoon]

[Quote=引用 8 楼 miceyou 的回复:]
虽然我是初学者 编写代码简陋
但是我在楼上几个人的帮助提示下 把程序写出来了。
Private Sub Form_Load()
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
mi = Minute(Time)
If mi = 3 Or mi = 13 Or mi = 23 Or mi = 33 Or mi =……
[/Quote]

都有个初学的过程~~~

[booksoon]

public n as interge
Private Sub Form_Load()
n = 0
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If n = 600 Then
    Call myproc
    n = 0
    Exit Sub
End If
n = n + 1
End Sub

不过用timer时间不精确~~~

[flfq]

可以每隔一分钟判断一下时间，符合条件就执行

[miceyou]

谢谢二楼的程序，但是这个每小时13分、23分、33分、43分、53分每隔10分钟运行一次该怎么写。