Miscellany

age {
  if ($1 == $null) { var %dob = Jan 01 00:00:00 1900 }
  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
}
age2 { 
  me is $duration($calc(($ctime - $ctime(Jan 01 00:00:00 1900)))) old. Approx $calc(($ctime - $ctime(Jan 01 00:00:00 1900)) / 31556952) years old.
}