Forums Scripts & Popups Duration in Years, Months, Etc.

; $dur(time in ctime format)
alias dur {
  var %t = 31557600.yr:2629800.mth:604800.wk:86400.day:3600.hr:60.min:1.sec,%i 1,%r,%a $1
  while ($gettok(%t,%i,58)) {
    tokenize 46 $ifmatch
    if (%a >= $1) { var %x = $int($calc(%a / $1)),%r = %r $+(%x,$2,$iif(%x > 1,s)),%a = $calc(%a - ($1 * %x)) }
    inc %i
  }
  return %r
}