Question

如何用VB编写一个天数倒计时的程序

我现在想编写一个VB做的天数倒计时程序,比如距某年某用某日还有多少多少天那种的,这个计算要怎么做啊?控件设计不限,能达到功能就行,我现在还没有什么太好的想法,大家帮我开拓下思路,有现成代码更好,如果能有分秒倒计时就更好了

Answer 1

在窗体上创建一个计时器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

***原创***！

Answer 2

Private Sub Form_Load()
MsgBox DateDiff("s", Now, #10/1/2009 8:00:00 AM#) '现在离10月1号八点还有几秒钟
End Sub
有了秒自然会算分和时了吧

Answer 3

编写一个VB做的天数倒计时程序:
datediff("d",now,#2009/10/1#)
d 代表天数 datediff表示时间间隔