Forums Scripts & Popups calc date question

$duration($calc($ctime - $ctime(05/04/07 00:00)))

on *:text:!date*:#:{
  if !$2 { .notice $nick Date not provided }
  elseif !$ctime($2-) {
    .msg $nick Invalid format for date detected
    .msg $nick Please use one of the following formats
    .msg $nick January 1 1970
    .msg $nick 3rd August 1987 3:46pm
    .msg $nick 21/4/72 1:30:37
    .msg $nick Wed 1998-3-27 21:16
  }
  else {
    .msg $chan $duration($abs($calc($ctime - $ctime($2-))))
  }
}

on $*:text:/^!date\b/Si:#:{
  if !$ctime($2-) { .play -m1t!Date $nick $qt($script) }
  else msg # Time since/until $2-: $duration($abs($calc($ctime - $ctime($2-))))
}
/*
This section is the topic for the play command above.
It can be in the scriptfile, commented out like this.
[!Date]
Invalid format for date detected
Please use one of the following formats
!Date January 1 1970
!Date 3rd August 1987 3:46pm
!Date 21/4/72 1:30:37
!Date Wed 1998-3-27 21:16
[Endof!datetopic]
*/

alias hdisk {
  return {
    var %ddisk = $chr(%disk)
    var %HDD_total = $calc(%HDD_total + $bytes($disk(%ddisk).size,g))
    $calc(%HDD_total + $bytes($disk(%ddisk).size,g))
  }
}

menu {
  Disk Size : echo -a $hdisk
}
alias -l hdisk {
  var %a = 1, %b = $disk(0), %disk
  while %a <= %b {
    if $disk(%a).type == fixed {
      inc %disk $disk(%a).size
    }
    inc %a
  }
  return $bytes(%disk,g)
}

menu channel {
  Disks
  .$submenu($disks($1))
}

alias disks {
  if ($1 == begin) return -
  if (($1 > 0) && ($1 <= $disk(0))) { return $remove($disk($1).path ,:\) : { echo -a $bytes($disk($1).size,g).suf } }
  if ($1 == end) return -
}