Tcl/TK -- DateTime Format

proc getDate {} {#01/10/2014return [clock format [clock seconds] -format "%m/%d/%Y"]}proc fileDate {} {# 20121221return [clock format [clock seconds] -format "%Y%m%d"]}proc dateTime {} {# 12/21/2011 10:50:23 AMreturn [clock format [clock seconds] -format "%Y/%m/%d %T"]}proc dayTime {} {# 12/21/2011 10:50:23 Wedreturn [clock format [clock seconds] -format "%A"]}proc logTime {} {# [2013-08-20 12:05:26]return [clock format [clock seconds] -format "\[%Y-%m-%d %T\]"]}