急求一个2008年北京奥运会的倒记时代码 要用VB语言编写的

来源：百度知道 编辑：UC知道 时间：2024/05/11 04:03:54
要求代码要用VB语言编写，可以在VB程序里运行。

MsgBox("今天距北京2008年奥运会开幕还有" & Datediff("d",Date(),Cdate("2008-8-8")) & "天")

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Label1(0) = "距奥运会开幕还有" & Format(DateDiff("d", Now, #8/8/2008 8:08:08 AM#)) & "天"
Label1(1) = DateDiff("h", Now, #8/8/2008 8:08:08 AM#) & "小时"
Label1(2) = DateDiff("n", Now, #8/8/2008 8:08:08 AM#) & "分"
Label1(3) = DateDiff("s", Now, #8/8/2008 8:08:08 AM#) & "秒"

End Sub

添加一个timer,全部代码如下:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Cls
Print "距2008北京奥运会开幕时间还有"; DateDiff("d", Date, #8/8/2008#); "天 ";
Print Format(DateAdd("s", DateDiff("s", Time, #8:40:00 PM#