Forums Scripts & Popups Time formatting assistance please

alias wdur {
  var %in = $1
  if (%in !isnum 0-) return 0 0 0 0 0

  var %w = $floor($calc(%in / (60 * 60 * 24 * 7)))
  %in = $calc(%in - (%w * 60 * 60 * 24 * 7))

  var %d = $floor($calc(%in / (60 * 60 * 24)))
  %in = $calc(%in - (%d * 60 * 60 * 24))

  var %h = $floor($calc(%in / (60 * 60)))
  %in = $calc(%in - (%h * 60 * 60))

  var %m = $floor($calc(%in / 60))
  %in = $calc(%in - (%m * 60))

  var %s = %in

  return %w %d %h %m %s
}

alias wtime {

  if ($$1 < $duration(1day)) return $duration($1,3)

  tokenize 58 $duration($1,3)
  ; $2=nn and $3=ss are fine; calculate HH out of $1
  var %hh = $base($calc($1 % 24),10,10,2)
  ; get full-written weeks/days/hours string, remove the hours-part from it (if any)
  var %wdh = $duration($duration($1 h)), %wd = $iif(%hh,$gettok(%wdh,1--2,32),%wdh)
  return %wd $+(%hh,:,$2,:,$3)
}