Posted to tcl by patthoyts at Sun Aug 26 09:25:07 GMT 2007view raw
- # paste::delta --
- #
- # Returns the time difference between the given and current time
- # as an english string.
- #
- proc ::paste::delta {time} {
- set r $time
- catch {
- set delta [expr {[clock seconds] - $time}]
- if {$delta < 60} {
- set r "$delta secs ago"
- } elseif {$delta < 3600} {
- set r "[expr {$delta / 60}] mins ago"
- } elseif {$delta < 86400} {
- set r "[expr {$delta / 3600}] hours ago"
- } else {
- set r "[expr {$delta / 86400}] days ago"
- }
- }
- return $r
- }