tcl - 在itcl中找到给定字符串是正确日期时间格式的方法是什么？

Question

我有这段代码，它以时间和日期格式将值设为 1 小时/2 小时或 3 点/下午 4 点，或 1 周、2 周、24 小时等，并且我有这个验证语义的 if 条件：

 if {[catch {clock scan [getValue]} errMsg]} \
    {
        handleError -errMsg \
            "Invalid date-time format: $errMsg."
    }

那么任何其他替代方案需要更少的时间/使用 CPU 来验证相同？