關於VB這個倒數程式的做法

Question

http://nicholas74322.myweb.hinet.net/2006.rar
各位懂VB程式的專家們QQ~我想做的累似這個倒數程式
有大大能分享一下程式嗎?~感恩感恩^___^

Answer 1

表單上佈置8個TextBox,Index 0~7 ,1個Timer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1(0).Text = Year(Now) '年
Text1(1).Text = Month(Now) '月
Text1(2).Text = Day(Now) '日
Text1(3).Text = Hour(Now) '時
Text1(4).Text = Minute(Now) '分
Text1(5).Text = Second(Now) '秒
Text1(6).Text = Format(Now, "民國" & "e" & "年" & "m" & "月" & "d" & "日") '日期
Text1(7).Text = DateDiff("s", Now, #1/1/2006#) '跨年剩幾秒
End Sub