If you dont want duration to show more than 2 units, you could cut off the rest by using: lrange [duration $d] 0 3 this should cut '1 week 2 days 7 hours 30 minutes' to '1 week 2 days'. No need to write an own proc about it :D. i just wanted to have days - no years or weeks it should cut '1 week 2 ...
set prestamp_ago [duration [expr [unixtime] - $prestamp]]; # e.g. 4 years 37 weeks 2 days 18 hours 48 minutes 58 seconds set prestamp_day [clock format $prestamp -format "%m/%d"]; # e.g. 05/27 but duration isnt the best method imho... noone wants to calc 1y 33weeks too days... so i here i...