关于时间的问题：？

[lndlwwh830]

我的问题是，倒计时来显示时间，比如：6.00.00-0.00.00如果到时停止一切任务。
不直它的函数是什么》
请大家多多指教？
谢谢？OK

[fontz]

到时间就执行个直接死机的函数不就行了。

[lzd]

用timer做就好了...

[lndlwwh830]

谢谢！： xd521(小豆) 的回答：
我想让它的时间显示在窗体上，然后倒记是，一分一秒的减少，

类示于考试的样子

[xd521]

光用Timer也是不行的
Timer的Interval等于1000才是一秒
而Timer数据类型是整形所以定义不了太长的时间
还是得加个计数器
---------------------------------------------------------
在Form1上加一个Timer1
用下面的代码
---------------------------------------------------------

Dim S As Integer
Dim tmpcounter As Integer
Private Sub Form_Load()
Timer1.Interval = 1000 '定时间隔为1秒
S = 10 '一共执行10个Timer单位
tmpcounter = 0 '计数器
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
If tmpcounter > S Then
End
Else
tmpcounter = tmpcounter + 1
End If
End Sub

[shenhuayi]

关注

[ztchen]

用timer做就可以了，在timer事件中用dateadd函数来减少时间。
如：
ix=ix-1 'ix为设定的时间的long型，可由设定的时间推算出，以秒为单位
lblcaption.caption=dateadd("s",-(ix),now)

[luckii1]

关注

[sworddx]

用timer，或者那个什么SetTimeEvent函数API（如果我没记错）。

[James0001]

to ↑ ，timeSetEvent? ;-)

[csdngoodnight]

Timer1.Interval = 1000 '定时间隔为1秒



'窗体加个标签控件

private sub timer1_timer()
if format(标签.caption,"hh:mm:ss")<= "00:00:00" then
'执行什么事件
exit sub
endif
标签.caption=dateadd("s",-1,标签.caption)

end sub

[csdngoodnight]

private form_load()
标签.caption="6:00:00"
end sub

[ksmark]

同意楼上的