Similar to $duration, however in different formats.

;# $dur identifier by HaNtU]uU[

;# Return a formatted duration.

;# EG:	$dur(313373)		returns 3 days, 15:02
;#	$dur(313373).days	returns 3
;#	$dur(313373).hours	returns 15
;#	$dur(313373).minutes	returns 02

ALIAS dur {
  var %uptime.days = 0, %uptime.time
  if ($regex($duration($1),/(\d+)wk/)) { %uptime.days = $calc($regml(1) * 7) }
  if ($regex($duration($1),/(\d+)day/)) { inc %uptime.days $regml(1) }
  var %uptime.dummy1 = $regex(hr,$duration($1),/(\d+)hr/), %uptime.dummy2 = $regex(min,$duration($1),/(\d+)min/)
  %uptime.time = $+($iif($regml(hr,0),$iif($len($regml(hr,1)) == 1,$+(0,$regml(hr,1)),$regml(hr,1)),00),:,$iif($regml(min,0),$iif($len($regml(min,1)) == 1,$+(0,$regml(min,1)),$regml(min,1)),00))
  if ($prop == days) return %uptime.days
  if ($prop == hours) return $gettok(%uptime.time,1,58)
  if ($prop == minutes) return $gettok(%uptime.time,2,58)
  else { return %uptime.days $+(day,$iif(%uptime.days > 1,s),$chr(44)) %uptime.time }
}