2010考研倒计时.frm

2010年研究生考试倒计时程序 vb实用代码 祝大家好运

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1845
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4425
   LinkTopic       =   "Form1"
   ScaleHeight     =   1845
   ScaleWidth      =   4425
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   600
      Top             =   120
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const Adate = #1/30/2010 8:00:00 AM# '常量纽约时间的北京奥运会开幕时间

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Timer1_Timer()
Cls
Print "2010年研究生入学考试时间为"; Adate
Print "目前为止还有"; DateDiff("d", Date, #1/30/2010#); "天 ";
Print Format(DateAdd("s", DateDiff("s", Time, #8:00:00 PM#), 0), "h小时m分钟s秒")
Print "一起加油吧，我的兄弟姐妹们"

End Sub
'http://704676718.qzone.qq.com