WJG (11/02/06) Just one of those handy code snippets that can be appended to a bag of support procs.
#---------------
# lazy way to get preformated time and date
#---------------
proc date { {i date} } {
switch -- $i {
d&t { set f "%c"}
year { set f "%Y" }
week { set f "%W" }
day { set f "%A" }
month { set f "%B" }
time { set f "%H:%M:%S" }
date { set f "%d/%m/%y" }
}
return [clock format [clock seconds] -format "$f"]
}