age {
  if ($1 == $null) { var %dob = Oct 25 13:00:00 1989 }
  else { var %dob = $1- }
  var %dob.day = $left(%dob,6)
  var %dob.year = $right(%dob,4)
  var %age = $round($calc(($ctime - $ctime(%dob)) / 31557600),5)
  var %next = $duration($calc(($ctime(%dob.day $calc(%dob.year + $calc(($round($calc(($ctime - $ctime(%dob)) / 31557600),0))+1)) 00:01) - $ctime) % 31449600))
  describe $active is %age and will be $calc($int(%age)+1) in %next
}