Posted to tcl by evilotto at Fri Oct 18 21:16:24 GMT 2013view raw

  1. set cur [clock seconds]
  2. scan [clock format $cur -format "%G %V"] "%s %s" year week
  3.  
  4. incr week -5
  5.  
  6. set wt [clock scan "$year $week" -format "%G %V"]
  7.  
  8. puts [clock format $wt]
  9.