==================================================================

Dim 日期1 As String Dim 日期2 As String Dim 年 As String Dim 月 As String Private Sub form_Load() 日期1 = Now 日期2 = "2008年8月8日" '中国奥运举办时间 日期1 = format(日期1, "YYYYMM") 日期2 = format(日期2, "YYYYMM") If 日期1 = 日期2 Then MsgBox "今天中国举办奥运" '如果时间是2008年08月08日 就提示 Else 年 = Mid(日期2, 1, 4) - Mid(日期1, 1, 4) 月 = Mid(日期2, 5, 2) - Mid(日期1, 5, 2) If 月 < 0 Then 月 = 月 + 12 年 = 年 - 1 End If MsgBox "中国举办奥运还有" & 年 & "年" & 月 & "个月" End If Me.Hide '隐藏本窗体 End Sub ====================================================================

倒计时程序，类似于倒计时牌。的确很简单，得到日期判断日期不是的话就计算与预定日期相差多少时间。