Question

VB。计算某个日期距离现在还有多少天的倒计时器。

利用计时器、日期函数等知识点，设计一个倒计时程序。具体要求如下：用户输入日期后，点击“查看”，文本框中则根据当前系统时间动态显示距离所查询日期的具体时间。

Answer 1

‘可以是天，我这里设置了s
Private Sub Command1_Click()
If Command1.Caption = "开始倒计时" Then
If Not IsDate(Text1) Then Exit Sub’无效的日期
Command1.Caption = "停止倒计时"
Timer1.Interval = 500
Text1.Enabled = False
Else
Command1.Caption = "开始倒计时"
Timer1.Interval = 0
Text1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Text1 = #12/21/2012#
Command1.Caption = "开始倒计时"
End Sub
Private Sub Timer1_Timer()
Me.Caption = "现在时间:" & Now() & Space(4) & "地球末日:" & CDate(Text1) & Space(4) & "还能活(s):" & DateDiff("s", Now, CDate(Text1))
End Sub

Answer 2

DateDiff

追问

我也知道= = 我要具体的。

追答

和Now比，然后取Day、Month、Year、Hour、Minute、Second，然后拼在一起显示出来就好了