Date Validation with TCL

[Marcus de Leon]

Hi,

I’m trying to validate a date with TCL using the clock scan function. See code below:

Code:

set str “20050101T000000”

if {[catch {clock scan $str} err]} {
   echo “Invalid Date”
}

This works fine however if I use a date that is less than January 1, 1902 then it fails. For example if the date passed in was 19000101T000000, then this would not work. Does anybody know how to get around this issue?

Topic

[Charlie Bursell]

This is a documented bug with the clock command.  If you search comp.lang.tcl you will find noise on it

[Author]

Replies