Posted By

Phoenicia7 on 05/14/12


Tagged


Versions (?)

Time


 / Published in: TCL
 

  1. proc _time {} {
  2. # Return the current time in list format {hour minute second}.
  3. set secs [clock seconds ]
  4. set h [clock format $secs -format %H]
  5. set m [clock format $secs -format %M]
  6. set s [clock format $secs -format %S]
  7. return [list $h $m $s]
  8. }
  9.  

Report this snippet  

You need to login to post a comment.