求一个小时倒记时代码

来源：百度知道 编辑：UC知道 时间：2024/06/19 19:26:42
要时间显示格式 距离XX还有 23：10：59 小时 时间会递减的方式走

vb语言：
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

这个用java好写