Posted to tcl by evilotto at Fri Oct 18 21:16:24 GMT 2013view pretty
set cur [clock seconds] scan [clock format $cur -format "%G %V"] "%s %s" year week incr week -5 set wt [clock scan "$year $week" -format "%G %V"] puts [clock format $wt]
set cur [clock seconds] scan [clock format $cur -format "%G %V"] "%s %s" year week incr week -5 set wt [clock scan "$year $week" -format "%G %V"] puts [clock format $wt]