Question

请教VB的倒计时程序

Dim lTime As Long
Private Sub Form_Load()
lTime = 300
Timer1.Interval = 1000
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
lTime = lTime - 1
Label1.Caption = " " + Str(Int(lTime / 60)) + ":" + Str(lTime - Int(lTime / 60) * 60)
If lTime = 0 Then
MsgBox "时间已到!"
Timer1.Enabled = False
End If
End Sub
这是正确的程序代码，网上找的，想请教一下每一条语句的功能。本人对VB函数、语句不太熟悉。

Answer 1

private
sub
timer1_timer()
dim
timenow
as
date
timenow
=
#4:00:00
pm#
-
time
me.cls
print
"距离下午4点还有"
&
hour(timenow)
&
"时"
&
_
minute(timenow)
&
"分"
&
_
second(timenow)
&
"秒"
if
time
=
#4:00:00
pm#
then
msgbox
"时间到"
end
if
end
sub
但你要注意一点:进行时间相减就得出时间差来了,不过当现在的时间超过下午4点的时候
时间差就会一秒一秒的增加,在4点以前是一秒一秒的倒计时的.
下面我写的这个程序
你会更加明白一些.
private
datnow
as
date,
y
as
integer
private
sub
timer1_timer()
me.cls
datnow
=
#6/6/2012
7:30:50
pm#
-
now
y
=
2012
-
val(year(now))
print
"距离
2012年6月6号下午7点30分50秒
还有
"
&
y
&
"年"
&
_
month(datnow)
&
"月"
&
_
day(datnow)
&
"天"
&
_
hour(datnow)
&
"小时"
_
;
minute(datnow)
&
"分钟"
_
;
second(datnow)
&
"秒钟"
end
sub
都这么精确的回答了,希望给分哟~~o(∩_∩)o...

Answer 2

Dim lTime As Long '声明变量lTime为长整形
Private Sub Form_Load()
lTime = 300 '对变量lTime赋值
Timer1.Interval = 1000 'Timer1控件的事件间隔(毫秒)
End Sub

Private Sub Timer1_Timer()
lTime = lTime - 1 'Timer1控件没运行一次 变量lTime减少1
Label1.Caption = " " + Str(Int(lTime / 60)) + ":" + Str(lTime - Int(lTime / 60) * 60)
'将变量lTime转换成“分：秒”的形式，并通过Label1显示出来
If lTime = 0 Then '如果变量lTime变为0
MsgBox "时间已到!" '弹出窗口提示时间已到
Timer1.Enabled = False '停止Timer1
End If
End Sub