[已解决]VBS中为什么这个比较语句不成立

newxso

1. Set objFso = CreateObject("Scripting.FileSystemObject")
   
2. if objFso.FileExists("time.ini") then
   
3.    Set objFile=objFso.OpenTextFile("time.ini", 1)
   
4.    LastDay=objFile.Readline
   
5. end if
   
6. NowDay=Date()
   
7. if NowDay=LastDay then
   
8.    Wsh.echo "同一天"
   
9. end if
   
10. Set ct = objFso.CreateTextFile("time.ini", True)
    
11. ct.WriteLine Date()
    
12. ct.WriteLine time
    
13. ct.Close

复制代码

如上面代码，执行脚本后在 time.ini 创建两行内容，第一行是日期，第二行是时间。为什么在同一天内执行此脚本时 if NowDay=LastDay then 这个比较语句不成功呢？如果取消这个比较语句，直接用 Wsh.Echo NowDay 和 Wsh.Echo LastDay 发现两者是相同的，不明白，请帮忙解决。

[ 本帖最后由 newxso 于 2008-10-11 06:54 编辑 ]

zqz0012005

变量的 Variant 子类型不同：LastDay为String型，NowDay为Date型。
可以强制进行类型转换：
if CStr(NowDay)=LastDay then

newxso

哦，原来这样。改用版主介绍的方法，问题解决了，多谢。