VBScript IsTime 函数

引言

我搜索了一下，但由于我有限的互联网搜索能力，没有找到类似于 VBScript 提供的 IsDate 函数的 IsTime 函数。因此，我使用旧技术和一本书，编写了以下示例。

请参阅 Scott Barbour 下面的评论。原来 IsDate 就可以完成这个任务。

背景

我上面提到的书是VBScript 程序员参考，第二版。对于任何计划编写哪怕一点 VBScript 的人来说，这是一本极好的资源，值得购买。

使用代码

这段代码似乎运行得很好。但是，我没有进行详尽的单元测试，请自行承担风险使用。

这段代码接受一个时间字符串 str，首先检查字符串是否为空。这个检查可能不是必要的，但它来自之前的尝试，所以我保留了它。其次，它使用 TimeValue 来检查时间是否有效。如果时间字符串无效，TimeValue 会产生运行时错误，所以我使用 On Error Resume Next 关闭错误控制开关。完成操作后，我使用 On Error GoTo 0 重新打开错误控制开关。

function IsTime (str)
  if str = "" then
    IsTime = false
  else
    On Error Resume Next
    TimeValue(str)
    if Err.number = 0 then
      IsTime = true
    else
      IsTime = false
    end if
    On Error GoTo 0
  end if
end function

关注点

你可能会认为一位经验丰富的 C++ 程序员不会对 VBScript 有任何困难，但对我来说却不是这样。好吧，多样性让书呆子的生活变得有趣。祝你编程愉快！

历史

提交于 2007/11/01。
编辑于 2007/11/05