下面是我写的离奥运会开幕还有多少天的程序。但不知为啥却显示还有39671天，这不是太奇怪了吗？
这第一句“ Dim FirstDay,NowDay,XDay ”申明变量没问题吧。第二句“ FirstDay=DateSerial (2008,8,18)”指定计算基准日期也没错吧。第三句“ NowDay=DatePart("d",Date()) '调取今天日期”有解释不说了。第四句“ XDay=datediff( "d", NowDay, FirstDay)”计算还有多少天，怎么也是对的呀。怎么显示的差距怎么就这么大呢？求各位帮忙了。

已经帮你改好了，第三句的用法不对，你response.write一下NowDay的值，看看到底是多少?其实调试对程序来说也很重要的，要有好的调试方法，不然错了都不知道错在哪里了，我在这方面也很差的，也要向大家多多学习！

谢谢二楼说的，但我也用了Respsone.Write写了后面一句的,只是这里没有传上来,我认为此句的代码只是显示的问题,但我写的代码是能显示的,只是显示的天数目不对,应该与显示句无关.请哪位真正知道错误的帮我指正一下。

[此贴子已经被作者于2007-4-7 17:04:55编辑过]

你没有明白我的意思，可能也是我没有表达清楚
NowDay = Date '调取今天日期改成这样
本来想启发你去查查到底哪错的。
你用你的源程序输出一下
response.write(NowDay)
看看具体的值，你就明白错在哪了。

谢谢了！看来是我太愚蠢！。果然如此。再次感谢！

不用这样说的，关键是你自己要多想，如果高手（我是菜鸟）都很忙，那谁来解决问题呢？还是要我们自己多动手，多去想解决的方法。加油！

Dim FirstDay,XDay
FirstDay=DateSerial (2008,8,18)
XDay=datediff( "d", now, FirstDay)
这样就可以计算相隔时间了

谢谢各位!作出来了。我也要在这上面把我所学帮助别人。
结贴。