vb6制作倒计时器

2025-04-14 10:05:43

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Me.Label1.Caption = Str(Year(Date)) + "年" + Str(Month(Date)) + "月" + Trim(Str(Day(Date))) + "日"
Me.Label2.Caption = Time()
gap = CDate("2014-6-4 00:00:00") - Now()
d = Int(gap)
h = Int((gap - d) * 24)
m = Int(((gap - d) * 24 - h) * 60)
s = Int((((gap - d) * 24 - h) * 60 - m) * 60)
Me.Label3.Caption = Str(d) + "日" + Str(h) + "时" + Str(m) + "分" + Str(s) + "秒"
End Sub
'我试试是正确的,你再检验一下看,祝你好运!