fork download 
  1. set nowtime [clock seconds]
  2. set happened "Fri, 06 Apr 2012 14:33:00 -0400"
  3. set newtime [clock scan $happened]
  4. set checked [expr {($nowtime-$newtime)/60}]
  5. if {$checked>60} {
  6. 	puts "Last checked [expr {($checked)/60}] hours ago"
  7. }else{
  8. 	puts "Last checked $checked minutes ago"
  9. }
Runtime error #stdin #stdout 0.05s 6040KB
comments (?)
stdin 
1
2
10
42
11
stdout 
Standard output is empty
https://ideone.com/fqoIr
language:
TCL (tcl 8.6)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!