Question

如何用VB做一个考试天数倒计时器啊？

急用，高手快快出招

Answer 1

已经通过试验的！ 为了方便修改日期，加入了输入对话框。
代码如下：
Dim a$
Private Sub Form_Load()
Label1.Caption = ""
a$ = InputBox("请输入考试日期(例如2012-12-21)：", "输入对话框", " ")
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "今天距" & a$ & "还有" & -DateDiff("d", a$, Date) & "天"
End Sub

Answer 2

Private Sub Timer1_Timer()
'TheDate为目标日期
Label1.Caption = "今天距XXX还有" & DateDiff("d", Now, TheDate) & "天"
End Sub