如何用VB2005作一个此时此刻离北京2008奥运会开幕式(2008年8月8日)的倒计时?

北京奥运会开幕式是不是2008年8月8日（今天）？~

北京奥运会的开幕式从2008年8月8日晚20时开始，到晚上23时30分结束，共历时3小时30分合计210分钟。

编程：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

那是一个晴朗的夜晚，我和妈妈坐在床上紧张地盯着电视，期待着能从国际奥委会主席萨马兰奇的口中听到那个牵动着所有中国人的答案。我的神情十分紧张，用手牢牢地攥住那枚徽章。当Beijing这个词语终于被大声地说出时，我高兴地把手中的徽章向上抛去。我飞快地穿好衣服，拉着妈妈冲出家门。此时只有在天安门广场庆祝呼喊，才能使我的情绪得到最好的释放。我们一路上疾步走着，不时有热情的路人和我们亲切地招手。有的路人只是冲我们笑笑，但是我们彼此都清楚其中的含义，并回以一个愉悦的眼神。

终于来到了天安门广场，广场上已经是人山人海了。人们挥舞着彩旗，高唱着国歌，将红旗图案的油彩涂在脸上。我还来不及做出反应，一个女孩就把我紧紧地抱住了。她的双肩微微地颤动着，眼角还挂着激动的泪水。

那个晚上，奥运将我们这些陌生人聚集在了一起。那个晚上，奥运和我从此紧紧地联系在了一起。

在这之前，老师就教给了我们许多关于奥运的单词。诸如人文奥运等词汇，至今我仍记忆犹新。在这以后的几年里，那些单词真的派上了用场。随着奥运会的临近，越来越多的外国友人来到中国旅游或是定居，我也因此获得了与他们交流的机会。走在路上，常常有外国人向我问路。每次我总不忘在告诉他们具体路线后，加上“Welcome to Beijing！We will hold the Olympic Games.”每当看到他们真切的笑容，我就知道北京又多了几位奥运支持者。

我参加过几个与奥运有关的绘画比赛，并取得了不错的成绩。我的获奖作品画的是一些简化的小人在奥运的五环中做着各种各样的体育运动。通过这些比赛，我不仅提升了画功，更了解了许多奥运知识。在这之前，我对奥运几乎是一无所知。为了画出更好的作品，我查阅了许多与奥运有关的书籍，浏览了不少相关网页。我了解到，奥运会并不只是一个单纯的竞技比赛，它更是连接各国人民团结的纽带，是各国健儿们为国争光的机遇。由于比赛成绩不错，我获得了参与绘画奥运长卷的机会。当我手持画笔，蹲在长卷上作画时，我格外小心。我用笔很重，希望把我对奥运的全部情感都倾注于这幅作品之中。当这幅长卷被展示在公园的墙壁上，我很高兴，我骄傲地对妈妈说：“我也能为奥运做贡献了！”

现在我正努力地提高自己的英语水平，并尽可能地多掌握各种体育词汇。我开始留意以前从不观看的体育节目，并从中慢慢领会到了运动的乐趣。我所做的一切都是为了报名奥运会志愿者而做好准备，以最直接的方式服务于奥运会。

看着徽章上代表奥运的五环，我想它像是一条首尾相连的纽带，一头连着我，一头连着北京。我相信每个北京人都希望能为北京奥运献出自己的一份力量，让外国友人能够一睹北京的风采,让全世界的人都看到北京的辉煌!

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 = "此时此刻距离北京2008奥运会开幕还有" & d & "天" & h & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub

用TIMER控件做不就可以了，其实很简单的，TIMER的interval=1000，然后你的秒减60的时候清空，分减一，分减到60的时候，时减一，时减到24的时候天减一不就可以了。

楼上时间还是不对。
Dim t As Date
Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
t = "2008/8/8 20:8:0"
End Sub

Private Sub Timer1_Timer()
Dim tm As Date, lngSec As Long
tm = t - Now
lngSec = DateDiff("s", Now, t)
If lngSec <= 0 Then tm = "0:0:0"
Label1.Caption = "现在离北京2008奥运会还有" & Format(lngSec \ (86400), "00") & "天" & Format(Hour(tm), "00") & "小时" & Format(Minute(tm), "00") & "分钟" & Format(Second(tm), "00") & "秒"
End Sub

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 = "此时此刻距离北京2008奥运会开幕还有" & d & "天" & h & "小时" & 59 - Minute

---

即墨市18696139226： 如何用VB程序做计时器? - ？
宿胀鱼腥： 3个标签,2个按钮,1个计时器控件 Private Sub Command1_Click() '开始/暂停 If Timer1.Enabled = True Then Timer1.Enabled = False Else Timer1.Enabled = True End If End Sub Private Sub Command2_Click() '停止清0 Label1 = ＂0＂ ...

即墨市18696139226： 求VB高手怎样用VB做一个毫秒级时钟? - ？
宿胀鱼腥： 建一个Timer1. 代码如下. ================= Private Declare Sub GetLocalTime Lib ＂kernel32＂ (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIMEwYear As IntegerwMonth As IntegerwDayOfWeek As IntegerwDay As ...

即墨市18696139226： 用VB作一个简单的倒计时？
宿胀鱼腥： 在表单上添加一个timer和和一个label控件 time控件的inteval设置为1000(即1秒) 然后在time的Timer()事件编写如下代码: label1.caption = trim(str(hour(time())))+＂时＂+trim(str(minute(time())))+＂分＂+trim(str(second(time())))+＂秒＂ 就可以了

即墨市18696139226： 怎样用VB做一个最简单的时钟? - ？
宿胀鱼腥： 在窗体上画一个Label和一个计时器,写下如下代码,即可. Private Sub Form_Load() Timer1.Interval = 2000 Timer1.Enabled = True Label1.Caption = Time End SubPrivate Sub Timer1_Timer() Label1.Caption = Time End Sub

即墨市18696139226： 如何用VB中的时间控件做一个计时器? - ？
宿胀鱼腥： timer1.interval=1000 private sub timer1_timer() t=t+1 sec=t mod 60 min=(t-sec)/60 label1.caption=str(min)+＂:＂+str(sec) end sub

即墨市18696139226： 在vb中,在form1中有一个进度条和timer,用timer控制进度条,14秒时间结束,进度条消失.代码怎么写呢? - ？
宿胀鱼腥： '自己换成进度条稍作修改即可 Private Sub Form_Load() HScroll1.Max = 14 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static n If n = 15 Then Timer1.Interval = 0 HScroll1.Visible = False Exit Sub End If HScroll1.Value = n n = n + 1 End Sub

即墨市18696139226： 求一个VB计时器代码!？
宿胀鱼腥： '与楼上效果一样 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static a As Long Me.Cls Me.FontSize = 20 Me.ForeColor = &HFF& Me.CurrentX = 1000 Me.CurrentY = 1000 a = a + 1 Print ＂计时: ＂ & Format(a, ＂00＂) End Sub一个按钮和计时器就可以了

即墨市18696139226： 用vb程序设计一个数字表用以显示当天日期时间,怎样作呀? - ？
宿胀鱼腥： '添加1个标签(Label),1个计时器(timer),把计时器的interval属性设置为1000 private sub timer1_timer() label1.caption = now end sub

即墨市18696139226： 怎样用VB编一个倒计时程序 - ？
宿胀鱼腥： 简单的倒数程序代码 Private Sub Form_Load() Label1.Caption = 60 End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 End Sub 至于时间倒计时.== Private Sub Form_Load() Label1.Caption = Format(Now, ＂hh:mm:ss＂)...

即墨市18696139226： vb中作个定时器用来记录每天的产量,到了第2天保存第一天的产量 - ？
宿胀鱼腥： dim nowday as date nowday = date private sub timer1.timer() if nowdaydate then'说明到了第二天了 nowday=date'数据库更新代码 end if end sub