时间倒计时代码

这是用VB写的,需在窗体上放一个label控件,如果你要用到自己程序里,里面还需加一些大小判断,请自己完善:
Private Sub Timer1_Timer()
Dim aa As Date
Dim bb As Date
aa = Now '一般用当前时间就可以了
bb = CDate("2006-11-30 11:38:33") '将来的时间
Label1.Caption = Year(bb) - Year(aa) & "年" & Month(bb) - Month(aa) & "月" & Day(bb) - Day(aa) & "天" & Hour(bb) - Hour(aa) & "小时" & Minute(bb) - Minute(aa) & "分钟" & Second(bb) - Second(aa) & "秒钟"
End Sub

不好意思，看了您的问题，没能帮到你！

就是啊 你说的也太不明白了
是要显示在哪啊
网站啊？
还是给你做个小程序啊