国外奥运会倒计时-国外奥运会倒计时多久
1.奥运会不是在8号吗?为什么倒计时最后的日期是9号?
2.纽约时区的北京奥运会VB倒计时代码怎么写?
奥运会不是在8号吗?为什么倒计时最后的日期是9号?
国际奥委会最早提出北京奥运会的开幕式日期是2008年7月25日。但根据北京的气候特点,7月下旬天气炎热,而且时有雨水,举办综合性运动会最好在9月份,北京亚运会就是在1990年9月举行的。但问题是,如果在9月份举行,就会与美国网球公开赛、国际田联大奖赛这些有几十年悠久历史的、已经制度化的重大国际赛事相冲突,所以在9月份举办几无可能。
选择时间的视线就落在了8月份。北京奥组委提出开幕式最好不要早于8月15日。然而,美式足球、NBA、棒球等比赛大都在8月下旬开赛,NBC又为此投入了巨额转播费用,所以国际奥委会提出了在8月8日举办开幕式。北京奥组委从7月25日的时间窗口,打算“保二争三”———最好推迟三周,在8月15日开幕;如果推迟两周,在8月8日开幕也行。2006年6月底,在布拉格举行的国际奥委会第115次会议上,决定北京奥运会开幕式时间定在2008年8月8日晚上8时。
对开幕式的时间,国际奥委会主席罗格曾有一个诙谐的注脚:“2008年8月8日(晚上)8时,再加上我是国际奥委会第8任主席,一共有5个‘8’了!”
纽约时区的北京奥运会VB倒计时代码怎么写?
放一个timer就行了:
Const Adate = #8/8/2008 8:40:00 AM# '常量纽约时间的北京奥运会开幕时间
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Cls
Print "纽约时间的北京奥运会开幕时间为"; Adate
Print "目前为止还有"; DateDiff("d", Date, #8/8/2008#); "天 ";
Print Format(DateAdd("s", DateDiff("s", Time, #8:40:00 PM#), 0), "h小时m分钟s秒")
End Sub