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

显示全部楼层 · 2011-10-30 06:34:11

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

千问 · 2011-10-30 06:34:11

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