e

alias age {
  var %Bday = $iif(!$2,$ctime(February 5 05:00:00 1992),$2), %years = $calc(($ctime - %bday) / 31556952), %other = $duration($calc(($ctime - %Bday))), %next = $duration($calc(($floor($calc(%years +1)) - %years)*31556952))
  me 3is14 $regsubex(%other,/([a-z]+)\b/Sig,$+($chr(3),3,\t,$chr(3),14)) 3Approx14 %years 3years old.14 $me 3will be14 $floor($calc(%years +1)) 3years old in14 $regsubex(%next,/([a-z]+)\b/Sig,$+($chr(3),3,\t,$chr(3),14)) $+ 3.
}