Board logo

标题: [已解决]VBS中为什么这个比较语句不成立 [打印本页]

作者: newxso    时间: 2008-10-10 21:17     标题: [已解决]VBS中为什么这个比较语句不成立

  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    时间: 2008-10-11 01:32

变量的 Variant 子类型不同:LastDay为String型,NowDay为Date型。
可以强制进行类型转换:
if CStr(NowDay)=LastDay then
作者: newxso    时间: 2008-10-11 06:53

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2