北京奥运会是08年的哪一天?没这么早决定吧
到开幕总共就那么二十来个月,把每月的日期做成一个数组,你从本机读出当日日期,查数组,把月份加一加,再把日期零头加一加,就ok了。
dim aoyun as date
dim dtnow as date
dim tian as long
dtnow=now
aoyun=cdate("2008-08-08")'假设这天开幕式
tian=aoyun-dtnow
msgbox "离2008年奥运会还有"+cstr(tian)+"天",,"提示"
楼主说的太 笼统了