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

newxso

Set objFso = CreateObject("Scripting.FileSystemObject") 
if objFso.FileExists("time.ini") then
   Set objFile=objFso.OpenTextFile("time.ini", 1) 
   LastDay=objFile.Readline
end if
NowDay=Date()
if NowDay=LastDay then
   Wsh.echo "同一天"
end if
Set ct = objFso.CreateTextFile("time.ini", True) 
ct.WriteLine Date()
ct.WriteLine time
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

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