关于时钟控件做倒计时.....
天有位大哥已经问了这方面的问题,但是,还有一点我搞不明,如何实现将总时间化为小时,分钟,秒,格式如:
离元旦还有hh小时.
离元旦还有mm分钟
离元旦还有ss秒.
Private Sub Form_Load()
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Text1.Text = "距2004年元旦还有" & Format((DateValue("04-1-1") - Now + 1), "d天hh时mm分ss秒")
End Sub
不明白上面(昨天解帖)的代码datavalue-now后面为什么要+1呀,不明白希望高手指教