导读如何用vb做一个奥运倒计时器优质回答添加一个timer控件设置interval=1000PrivateSubTimer1_Timer()DimdAsString,hAsString,mAsStringd=Format(DateDiff("d",Now,#8/8/20088:08:08AM#))-1h=24-Hour(Time)+7IfHour(Ti...

今天运困体育就给我们广大朋友来聊聊奥运会倒计时,希望能帮助到您找到想要的答案。

如何用vb做一个奥运倒计时器

如何用vb做一个奥运倒计时器

优质回答添加一个timer控件

设置interval=1000

Private

Sub

Timer1_Timer()

Dim

d

As

String,

h

As

String,

m

As

String

d

=

Format(DateDiff("d",

Now,

#8/8/2008

8:08:08

AM#))

-

1

h

=

24

-

Hour(Time)

+

7

If

Hour(Time)

>

8

Then

h

=

24

-

Hour(Time)

+

7

If

Hour(Time)

<=

8

Then

h

=

8

-

Hour(Time)

Label1.Caption

=

"距离奥运开幕还有"

&

d

&

"天"

&

h

&

"小时"

&

59

-

Minute(Time)

&

"分钟"

&

59

-

Second(Time)

&

"秒"

End

Sub

2008年奥运会倒计时桌面

优质回答这里有两款现成的倒计时桌面（别人考研做的，你可以简单的改一下，就变成奥运倒计时了）

但是由于发得比较早上面得时间都有问题

所以你下载之后请自己更新一下时间，更新方法很简单就是把里面的网页文件以txt的格式打开（具体就是改变其扩展名），找到里面的时间，改成2007.1.20就可以啦～

另外还有相关的设置你可以通过相同的方法改过来

（1）位置：style="padding-right:230px;padding-top:15px;"

（2）颜色：<*FONT style="FONT-SIZE: 20px; FILTER: shadow(color=#339900,strength=5); WIDTH: 100%; COLOR:white; LINE-HEIGHT: 160%; FONT-FAMILY: verdana"*> （使用时去掉*号）

COLOR:white;——文字颜色；

FONT-SIZE: 20px;——文字大小

shadow(color=#339900,strength=5);——文字阴影的深浅和颜色

但是注意，改完之后要把扩展名再改过来

解压缩以后,在"控制面板"的"显示属性"--"桌面"--"浏览" 选择压缩包中的2007.htm即可

要改壁纸的话,替换shoko.jpg就可以了

就是把你要当成壁纸的图片也放到解压的文件夹里面，然后把图片的名字改为“shoko.jpg”

excel制作倒计时带天时分秒

优质回答如何用Excel制作随时跳动的倒计时2007年06月24日 下午 01:04 以制作2008北京奥运会倒计时为例:

启动Excel并新建工作簿，按下Alt+F11进入VBA编辑状态。在左侧的"工程资源管理器"中选择当前工作簿，然后执行"插入"－"模块"命令，插入一个新模块（模块1）。

双击"模块1"进入代码编辑区域中，输入以下代码。输入完成后，关闭窗口返回工作表中。

Sub Timer()

ss=DateDiff("s", Now, "2008-8-8 20:00:00")

dd=ss\86400

ss=ss-dd*86400

hh=ss\3600

ss=ss-hh*3600

mm=ss\60

ss=ss-mm*60

ActiveSheet.Range("A1") = "现在离北京2008奥运会开幕还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"

Application.OnTime Now + TimeValue("00:00:01"), "Timer"

End Sub

按下Alt+F8展开"宏"对话框，选中"Timer"宏，单击"执行"按钮返回，当前工作表的A1单元格中即刻出现一个北京奥运的倒计时钟

代码首先计算出当前时间与结束时间相隔的总秒数，再分别转换成对应的天数、小时数、分钟数和秒数。其中的Application.OnTime用于安排倒计时宏每隔一秒运行一次。大家在Excel使用中如果要用到时间的倒计时计算，便可使用这种方式。参考资料：

flash倒计时器的制作过程

优质回答具体步骤如下：

1.启动Flash，新建元件，命名为“倒计时”，行为中选择“影片剪辑”，确定后进入元件编辑窗口。

2.点击文本工具，在属性中选择“静态文本”，划出一个文本框，设置好文本框的参数，输入内容“现在离2008北京奥运开幕还有”。

3.点击文本工具，在属性中选择“动态文本”，划出一个文本框，设置好文本框的参数，变量设置为“DaoJiShiText”。

4.命名所在层为“倒计时”，在时间轴的第一帧上输入以下代码：

EndTime=new Date(2008,7,8,20,0,0);

//定义倒计时结束时间，此处为2008北京奥运开幕日

//注意，月份参数用0-11表示1-12月

NowTime=new Date();

//定义当前时间

zong=Math.floor((EndTime.getTime()-NowTime.getTime())/1000);

//取得当前时间与结束时间相差的总秒数

if(zong>0)

{

tian=Math.floor(zong/(60*60*24));

//取得剩余天数

zong=zong-tian*60*60*24;

shi=Math.floor(zong/(60*60));

//取得剩余小时数

zong=zong-shi*60*60;

fen=Math.floor(zong/60);

//取得剩余分钟数

zong=zong-fen*60;

miao=zong;

//取得剩余秒数

DaoJiShiText=String(tian)+"天"+String(shi)+"时"+String(fen)+"分"+String(miao)+"秒";

}

5.在时间轴的第12帧处插入关键帧，输入语句“gotoAndPlay(1);”。

6.返回主场景，把倒计时影片剪辑拖放至主场景中，测试运行，效果如图所示。

说明：代码以北京2008奥运会开幕为倒计时结束时间，首先计算出当前时间与结束时间相隔的总秒数，再分别转换成对应的天数、小时数、分钟数和秒数。由于Flash默认的帧频是12，代码中在第12帧处使用了“gotoAndPlay(1);”语句，用于安排倒计时代码每隔一秒运行一次，使得所显示的倒计时信息每隔一秒刷新一次。

用VB为北京2008年奥运会设计一个倒计时程序

优质回答编程：2008奥运倒计时2006-10-10

08:46'注：奥运会开幕时间2008年8月8日晚8点

'添加1个Timer

和一个Label

Private

Sub

Form_Load()

Timer1.Interval

=

1000

End

Sub

Private

Sub

Timer1_Timer()

aoyun

=

#8/8/2008#

a

=

19

-

Hour(Time)

b

=

DateDiff("d",

Now,

aoyun)

-

1

If

a

<

0

Then

a

=

24

+

a

b

=

b

-

1

End

If

Label1

=

"距离奥运开幕还有"

&

b

&

"天"

&

a

&

"小时"

&

59

-

Minute(Time)

&

"分钟"

&

59

-

Second(Time)

&

"秒"

End

Sub

今天的内容先分享到这里了，读完本文《奥运会倒计时器》之后，是否是您想找的答案呢？想要了解更多，敬请关注www.zuqiumeng.cn,您的关注是给小编最大的鼓励。