如何用VB编写一个天数倒计时的程序

在窗体上创建一个计时器Timer1，一个标签LabTime

Private Sub Form_Load()

Dim Days As Integer

Dim Times As Date

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Const date0 As Date = #10/1/2009 10:10:10 AM# '日期

Days = CInt(date0 - Now - 05) '取整数部分(天数)

Times = CDate(date0 - Now)

LabDayCaption = Days & "天" & Hour(Times) & "小时" & Minute(Times) & "分" & Second(Times) & "秒"

End Sub

原创！

Dim iDayLeft As Integer

Dim timeLeft As Date

Dim dateToReach As Date

Private Sub Command1_Click()

dateToReach = #3/26/2009 4:00:00 PM# '目标日期

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

dateToReach = 0

Timer1Enabled = False

MeCaption = 0

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

iDayLeft = CInt(dateToReach - Now) '取整数部分(天数)

timeLeft = CDate((dateToReach - Now) - iDayLeft) '取小数部分(时间)

MeCaption = timeLeft

End Sub

#加 2 个按钮一个Timer 控件

#

#一、在程序中用时钟控件不断触发系统时间与预设定时间时间截止点的时间差：分别计算当前时间和预设定时间截止点之间相差的整年数、当#前时间到时间截止点还差的不足一年的天数和当前时间到时间截止点之间相差的不足一天的秒数并分别显示之。

#

#二、程序中调用系统时间综合使用了“Now”函数和“Format”函数，其完整形式为：

#Format（Now, “hh:mm:ss”）

#Format（Now，“mm/dd/yy”）

#前者可以按照“小时：分钟：秒”的形式返回当前时间；后者可以按照“月/日/年”的形式返回。

#

#三、为保证应用程序的灵活性，倒计时牌上设有暂停、继续、时间校正、时区切换，结束运行等特殊要求的激发点。

在窗体上放一个textbox，一个Label，一个Timer，一个Commandbutton

双击窗体，粘贴以下代码：

Private Sub Command1_Click()

Label1Caption = Text1Text

Timer1Interval = 1000

Timer1Enabled = True

End Sub

Private Sub Form_Load()

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1Caption = Label1Caption - 1

If Label1Caption = 0 Then

Timer1Enabled = False

End If

End Sub

'使用时在文本输入倒计时的秒数，点按钮开始倒计时

'--------------------------------------------------------------

'倒计时2分钟

dim withevents tim as timer

dim t%

sub form_load()

t=260 '2为倒计时分钟，t为倒计时秒钟。

mefontsize=40 '设置窗体字体大小

set tim=controlsadd("vbtimer","tim") '添加计时器

timinterval=10 '10毫秒时间间隔，刷新一次时间

timenabled=true '启动计时器

end sub

sub tim_timer()

static i%,j% 'i为刷新次数，j为倒计时毫秒数

if i=100 then i=0 '100次10毫秒=1秒钟，让它1秒钟后归零

if j=0 then t=t-1 '完成一次毫秒倒计时,倒计时秒-1

if t=0 then

timenabled=false '倒计时时间到，关闭计时器

controlsremove tim '删除计时器

set tim=nothing '释放内存空间

msgbox "时间到！" 'd出时间到提示

end if

mecls '清除窗体内容

print t\60 & ":"& t mod 60 & ":" & j '打印倒计时时间到窗体

i=i+1 '刷新次数自加1

j=100-i '无话可说

end sub

'--------------------------------------------------------------

楼上的代码这么长，还简单？

无语

我给你写了一个，这个才是真正的简单实用，呵呵！

加个TIMER控件

把Interval

属性调成

1000

毫秒

也就是

1秒

在加两个

TEXT

text1text=3

text2text=00

在加个按钮

开始倒计时

就行了

程序代码如下:

Private

Sub

Form_Load()

Timer1Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

If

(Text2Text

<=

0)

Then

Text2Text

=

59

Text1Text

=

Text1Text

-

1

Else

Text2Text

=

Text2Text

-

1

End

If

End

Sub

Private

Sub

Command1_Click()

Timer1Enabled

=

True

End

Sub

如果有什么地方不懂，欢迎联系我！

方法步骤

1、打开

VB(Visual

Basic)

软件，新建标准

EXE

工程，按照下图设计好窗口。中间三个

TextBox（文本框）是用来输入查询日期的，将他们的“名称”属性分别设为

y,m,d。其下方的三个

Label（标签框）是用来指示当前日期的，将他们的“名称”属性分别设置为

cy,cm,cd。“计算”按钮下方还有两个标签框，是用来指示两个日期的差值的，请把左边的标签框名称设置为

t，右边的标签框名称设置为

s。这些设置都是为后面编写程序代码而准备的。

2、窗体布局已经完成，下面就开始正式的程序设计。第一步，刚打开程序时，必须提取出今天的日期。双击窗口的空白处，d出代码窗口，写入如下代码。绿色的文字是注释，可参考其含义，你们在编写代码时不必写入。

3、第二步，就是在输入完日期之后，检查所输入的数字有没有错误。年份必须在

1——9999

之间，月份必须在

1——12

之间，而日期就需要根据当前年份和月份来指定相应的范围了。双击第一个文本框

y，进入代码窗口，写入如下代码，同样有注释。

4、判断完输入的日期是否有误后，下面一步就是计算今天，还有设定的日期，各距离公元

1

年

1

月

1

日有多少天了。双击“计算”按钮，写入如下的代码。同样有注释。

5、好了，所有的代码都已经写完了，你可以点击工具栏上的“运行”按钮测试一下效果哦。如果觉得非常满意，还可以点击“文件”菜单下的“生成工程1exe”命令直接生成应用程序，这样随时都可以运行啦！

Public i As Integer '用于存储时间

Private Sub Form_Load()

Timer1Interval = 1000 '设置timer1控件间隔为1秒

If Timer1Enabled = False Then Timer1Enabled = True '设置timer1可用

CmdOKCaption = "确定"

CmdCancelCaption = "取消"

CmdOKEnabled = False '设置按钮不可用

CmdCancelEnabled = False

i = 10

End Sub

Private Sub Timer1_Timer()

CmdOKCaption = "确定（" & Trim(Str(i)) & "）"

If i = 0 Then '如果时间为0则设置cmdOK、cmdCancel按钮可用

CmdOKCaption = "确定"

CmdOKEnabled = True

CmdCancelEnabled = True

Timer1Enabled = False

End If

i = i - 1 '秒数减1

End Sub

补充一下命令按钮分别为cmdOK和cmdCancel，timer控件为timer1

以上就是关于如何用VB编写一个天数倒计时的程序全部的内容，包括:如何用VB编写一个天数倒计时的程序、vb倒计时程序、如何用VB设计一个倒计时的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！