Someone

alias ltm.sd {
  if ($int($1) isnum) {
    if ($int($1) == 0) { return 0 Seconds }
    set %done $int($1)
    set %d.min 0
    set %d.hour 0
    set %d.day 0
    set %d.week 0
    set %d.year 0
    set %d.year $int($calc(%done / 60 / 60 / 24 / 365))
    set %done $calc(%done - (%d.year * 60 * 60 * 24 * 365)))
    set %d.week $int($calc(%done / 60 / 60 / 24 / 7))
    set %done $calc(%done - (%d.week * 60 * 60 * 24 * 7)))
    set %d.day $int($calc(%done / 60 / 60 / 24))
    set %done $calc(%done - (%d.day * 60 * 60 * 24)))
    set %d.hour $int($calc(%done / 60 / 60))
    set %done $calc(%done - (%d.hour * 60 * 60)))
    set %d.min $int($calc(%done / 60))
    set %done $calc(%done - (%d.min * 60)))
    return $iif(%d.year == 1,1 Year) $iif(%d.year > 1,%d.year Years) $iif(%d.week == 1,1 Week) $iif(%d.week > 1,%d.week Weeks) $iif(%d.day == 1,1 Day) $iif(%d.day > 1,%d.day Days) $iif(%d.hour == 1,1 Hour) $iif(%d.hour > 1,%d.hour Hours) $iif(%d.min == 1,1 Minute) $iif(%d.min > 1,%d.min Minutes) $iif(%done == 1,1 Second) $iif(%done > 1,%done Seconds)
  }
  unset %d.*
}