用VB为北京2008年奥运会设计一个倒计时程序

发布网友发布时间：2022-04-24 16:49

共2个回答

热心网友时间：2022-04-24 18:19

编程：2008奥运倒计时2006-10-10 08:46'注：奥运会开幕时间2008年8月8日晚8点

'添加1个Timer 和一个Label

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
aoyun = #8/8/2008#
a = 19 - Hour(Time)
b = DateDiff("d", Now, aoyun) - 1
If a < 0 Then
a = 24 + a
b = b - 1
End If
Label1 = "距离奥运开幕还有" & b & "天" & a & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub

参考资料：http://hi.baidu.com/yhpp521/blog/item/43a0b73844517ac2d56225f4.html

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com