麻烦高手帮我修改一下下面的vb倒计时编程

显示全部楼层 · 2011-7-9 20:11:19

在窗体上创建一个计时器Timer1，一个标签LabTime
Private Sub Form_Load()

Dim Days As Integer
Dim Times As Date

Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Const date0 As Date = #10/1/2009 10:10:10 AM# '日期

Days = CInt(date0 - Now - 0.5)'取整数部分(天数)
Times = CDate(date0 - Now)

LabDay.Caption = Days & "天" & Hour(Times) & "小时" & Minute(Times) & "分" & Second(Times) & "秒"
End Sub
上面的局限性是时间直接在代码中给定，我想问怎么改动可以在运行时随便改时间，比如在窗体上加一个text，然后随便输入所想倒计的任何时间
我想尽快知道答案，请高人的帮忙！快！谢谢~

千问 · 2011-7-9 20:11:19

Dim sTotal&, h%, m%, d%, s%Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000sTotal = DateDiff("s", "00:00:00", Text1.Text)End SubPrivate Sub Timer1_Timer()sTotal = sTotal - 1h = sTotal \ 3600m = (sTotal Mod 3600) \ 60s = (sTotal Mod 3600) Mod 60Text1.Text = h & ":" & m & ":" & ...

千问 · 2011-7-9 20:11:19

Private Sub Form_Load()dim date0 As Date '放在这儿text1.text=now()date0=text1.text...

千问 · 2011-7-9 20:11:19

Private Sub Form_Load()dim date0 As Datetext1.text=now()date0=text1.text...