想建立一个倒计时器

Dim nYear As Long, nDay As Long, tYear As Long, tDay As Long
Dim nSec As Long, tSec As Long
Dim strNow1 As String, strNow2 As String
Dim strEnd1 As String, strEnd2 As String
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Sub showDay()
Text3.Caption = (tDay - nDay) Mod 365
End Sub
Sub showSecond()
nSec = 86400 - nSec + tSec
If nSec > 86400 Then
    nSec = nSec - 86400
    nDay = nDay + 1
End If
Text6.Caption = nSec
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
strEnd1 = Text1
strEnd2 = Text2
tYear = Val(Right(Text1, 4))
tDay = (Val(Left(Text1, 2)) - 1) * 30 + Val(Mid(Text1, 2))
tSec = Val(Left(Text2, 2)) * 3600 + Val(Mid(Text2, 4, 2)) * 60 + Val(Right(Text2, 2))
End Sub

Private Sub Timer1_Timer()
strNow1 = Format(Now, "mm/dd/yyyy")
strNow2 = Format(Now, "hh:mm:ss")
nYear = Val(Right(strNow1, 4))
If nYear Mod 4 = 0 And nYear Mod 100 <> 0 Or nYear Mod 400 = 0 Then

 nDay = 366 - (Val(Left(strNow1, 2) - 1) * 30 + Val(Mid(strNow1, 4, 2)))
Else

 nDay = 365 - (Val(Left(strNow1, 2) - 1) * 30 + Val(Mid(strNow1, 4, 2)))
End If
nSec = Val(Left(strNow2, 2)) * 3600 + Val(Mid(strNow2, 4, 2) - 1) * 60 + Val(Right(strNow2, 2))
showSecond
showDay
showYear
End Sub

但是做了一半就不会做，不知道怎样做下去

[ 本帖最后由 kuugaangela 于 2014-6-3 17:17 编辑 ]

没那么复杂吧，下面代码简单解决


Private Sub Command1_Click()
  If Not IsDate(Text1) Or Not IsDate(Text2) Then
    MsgBox "日期格式错误，请检查"
    Exit Sub
  End If
  Timer1.Enabled = True
  Command1.Enabled = Timer1.Enabled Xor True
End Sub

Private Sub Form_Load()
  Text1 = DateAdd("d", 100, Date)
  Text2 = "8:00"                        '按100天初始化比较日期
  Timer1.Interval = 1000
  Timer1.Enabled = True
  Command1.Enabled = Timer1.Enabled Xor True
End Sub

Private Sub Text1_Change()
  Timer1.Enabled = False
  Command1.Enabled = Timer1.Enabled Xor True
End Sub

Private Sub Text2_Change()
  Timer1.Enabled = False
  Command1.Enabled = Timer1.Enabled Xor True
End Sub

Private Sub Timer1_Timer()
  Dim i As Long, d As Date, dd As Integer, h As Integer, m As Integer, s As Integer
  d = Text1 & " " & Text2
  i = DateDiff("s", Now, d)
  s = i Mod 60
  i = i \ 60
  m = i Mod 60
  i = i \ 60
  h = i Mod 24
  dd = i \ 24
  Label1.Caption = "距离" & d & "还有：" & dd & "日" & h & "小时" & m & "分" & s & "秒"
End Sub

你好，想在窗体上搞个倒计时，窗体添加个标签，标签数字从10秒到1秒窗体自动关闭

帮个忙？