[谁帮我设计班里圣诞节的大概程序]第一天： 好好睡一觉9点起床，然后9:30出发（吃不吃早餐你们决定）。 9:30--11:00 闲逛，比如商场、圣诞节人人可以参加活动的场所； 11:50--12:30 找一家你们喜欢的口味饭店就餐（也可以...+阅读
Dim Dd As String
Dim D As Integer, S As Integer, M As Integer, H As Integer
Dim Da As String
Private Sub Form_Load()
Timer1.Interval = 100
Dd = Format(＂2015 / 1 / 1 0:00:00＂, ＂yyyy/mm/dd hh:mm:ss＂)
End Sub
Private Sub Timer1_Timer()
Cls
If Dd > Format(Now(), ＂yyyy/mm/dd hh:mm:ss＂) Then
D = DateDiff(＂d＂, Date, Dd)
S = Right(Dd, 2) - Right(Time(), 2)
M = Mid(Right(Dd, 8), 4, 2) - Mid(Format(Time(), ＂hh:mm:ss＂), 4, 2)
If S < 0 Then
S = S + 60
M = M - 1
End If
H = Left(Right(Dd, 8), 2) - Left(Format(Time(), ＂hh:mm:ss＂), 2)
If M < 0 Then
M = M + 60
H = H - 1
End If
If H < 0 Then
D = D - 1
H = H + 24
End If
Da = D & ＂天＂ & H & ＂小时＂ & M & ＂分＂ & S & ＂秒＂
Print ＂距离2015年元旦还有：＂
End If
Print Da
End Sub
延伸阅读：
程序员如何用代码写出一封情书范文如下。 每次你微笑的看着我，都会引发使我心跳加速的触发器，我发现自己已深深地爱上了你，无法逃避，因为我们在同一个Database里。 经过我长期的查询分析，对你表结构的了解也越...
团体心理辅导一般程序O（∩_∩）O~ 帮你介绍一种团体心理辅导程序，这是我在博仁的朋友给我的，也许对你会有所帮助的，希望对你有用 团体心理辅导基本上分为治疗性的团体辅导和发展性的团体辅导。在辅导中...
企业如何规定病假的请假程序为好1、企业如何规定病假的请假程序，可以内部制定相应的请假流程和规则，但是要保证员工能依法享受病假的权力。 2、《企业职工患病或非因工负伤医疗期规定》企业职工因患病或非因...
图书信息管理程序用C语言编写#include#include#include#include#include#define STACK_INIT_SIZE 10 #define OK 1 #define TRUE 1 #define FALSE 0 #define ERROR 0 struct student /*定义学生类型，用于...
请问有谁知道导游考试口试的程序和注意事项现场导游考试的注意事项 参加现场导游首先要注意个人的仪容仪表，展示给考官良好的第一印象是十分重要的，毕竟现场口试是在室内进行的，相对来说比较正式，男生最好穿西服打领带，女...
用VB编写倒计时程序在窗体添加三个 text 一个timer 一个command text1 text2 text3 分别代表 hh mm ss timer1 是定时器，计时用的 command1 是开始计时按钮 然后在窗体代码内粘贴以下全部代码，运...
用VB编写一个倒计时的程序Dim t Dim start As Boolean Private Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.En...
vb倒计时程序Dim iDayLeft As Integer Dim timeLeft As Date Dim dateToReach As Date Private Sub Command1_Click() dateToReach = #3/26/2009 4:00:00 PM# '目标日期 Timer1.Enabled...
如何用VB设计一个倒计时的程序在窗体上放一个textbox，一个Label，一个Timer，一个Commandbutton 双击窗体，粘贴以下代码： Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Ti...
