on *:load:{ set %dob $$?="Please enter your Date of Birth in this format: day/month/year. $crlf $+ (i.e 14/3/83)" }
alias age {
  if ( $1 != $null ) {
    age.calc $duration($calc($ctime - $ctime($1)))
    msg $active You are %age.years years $+ , %age.weeks weeks $+ , and %age.days old.
  }
  else {
    age.calc $duration($calc($ctime - $ctime(%dob))) 
  msg $active I am %age.years years $+ , $calc(%age.weeks - 3 ) weeks $+ , and %age.days old!   }
unset %age.* }
alias age.calc {
  set %age.rawweeks $remove($$1,wks)
  set %age.days $2
  set %age.weeks $calc(%age.rawweeks % 52)
  set %age.years $calc((%age.rawweeks - %age.weeks) / 52)
}
alias age.setdob { set %dob $$?="Please enter your Date of Birth in this format: day/month/year. $crlf $+ (i.e 14/3/83)" }
 

Commenting Options