Age

alias age {
  var %Bday = $iif(!$2,$ctime(September 13 11:07:00 1991),$2), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 14is04 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) 14Approx04 %years 14years old.04 $me 14will be04 $floor($calc(%years +1)) 14years old in04 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),14,\t,$chr(3),04)) $+ 14..
}