求vb代码 用来倒计时今年还剩多少天的代码 并且做解释 相关的语句让我看懂 vb初学者请见谅

Question

不用文本框显示 直接msg box弹窗 该怎么写呢

Answer 1

Private Sub Timer1_Timer()
datesub = DateDiff("s", Now, #7/28/2012 3:12:00 AM#)
dd = Fix(datesub / 60 / 60 / 24)
HH = Fix((datesub - dd * 60 * 60 * 24) / (60 * 60))
MM = Fix((datesub - dd * 60 * 60 * 24 - HH * 60 * 60) / 60)
SS = Fix(datesub - dd * 60 * 60 * 24 - HH * 60 * 60 - MM * 60)
strtip = "距2012年7月28日03时12分00秒伦敦奥运会 还有: "
strtip = strtip + CStr(dd) + "天"
strtip = strtip + CStr(HH) + "小时"
strtip = strtip + CStr(MM) + "分钟"
strtip = strtip + CStr(SS) + "秒"
Label1.Caption = strtip
End Sub
哪句不懂请追问，要源代码留QQ

Answer 2

代码如下
运行条件:form1上有个文本框控件,名称text1,一个按钮控件,名称command1,一个计时器控件,名称timer1,点击command1开始倒计时

Option Explicit

Private Sub Command1_Click()
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim nextyear As Date
'生成明年元旦
nextyear = CDate((Year(Now) + 1) & "-1-1")
'计算日期差
Me.Text1 = DateDiff("d", Now, nextyear)
End Sub追问

我想把文本框控件去了 直接msg box弹窗 该怎么写呢

追答

弹窗只能弹一次,去掉文本框的话,计时器也就没有用处了,点击按钮就弹窗,程序修改如下:

Option Explicit

Private Sub Command1_Click()
Dim nextyear As Date
'生成明年元旦
nextyear = CDate((Year(Now) + 1) & "-1-1")
'计算日期差
msgbox DateDiff("d", Now, nextyear)
End Sub

本回答被提问者采纳