关于时间的问题：？

Question

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

Answer 1

光用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 SubPrivate Sub Timer1_Timer()
    If tmpcounter > S Then
        End
    Else
        tmpcounter = tmpcounter + 1
    End If
End Sub

Answer 2

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

Answer 3

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

Answer 4

to ↑ ，timeSetEvent?  ;-)

Answer 5

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

Answer 6

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