Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim m As Integer, d As Integer, min As Integer, s As Integer, h As Integer min = 59 - DateTime.Now.Minute() s = 59 - DateTime.Now.Second() h = 23 - DateTime.Now.Hour() m = 12 - Month(Today()) If m = 1 Then d = d + 30 - DateTime.Today.Day() + 22 Else d = 22 - DateTime.Today.Day() End If Label1.Text = "现在离英语四级考试还有" + Format(d, "00") + "天" + Format(h, "00") + "小时" + Format(min, "00") + "分钟" + Format(s, "00") + "秒。" End Sub 关于英语四级的倒计时,想了好久终于写出来了。 |