Posted By

Phoenicia7 on 05/14/12


Tagged


Versions (?)

Date


 / Published in: TCL
 

  1. proc _date {} {
  2. # Return the current date as a list in the format {year month day}.
  3. set secs [clock seconds ]
  4. set year [clock format $secs -format %Y ]
  5. set month [clock format $secs -format %m ]
  6. set day [clock format $secs -format %d ]
  7. return [list $year $month $day ]
  8. }
  9.  

Report this snippet  

You need to login to post a comment.