Age Scripts

alias age1 {
  if ($1 == -a) {
    %birthday = $ctime($$?="When is your birthday (dd/mm/yyyy)" 00:00:00)
  }
  if ($1 == -d) {
    %bdaydefault = $$?="What is your birthday (Default) (dd/mm/yyyy)"
    %birthday = $ctime(%bdaydefault 00:00:00)
  }
  elseif (!$1) {
    if (%bdaydefault) {
      %birthday = $ctime(%bdaydefault 00:00:00)
    }
    elseif (!%bdaydefault) {
      %bdaydefault = $$?="What is your birthday (Default) (dd/mm/yyyy)"
      %birthday = $ctime(%bdaydefault 00:00:00)

    }
  }
  else {
    %birthday = $ctime($$1- 00:00:00)
  }
  %curyear = $asctime(yyyy)
  %nextbirthday = $asctime(%birthday,dd/mm) $+ / $+ %curyear
  if ($ctime(%nextbirthday) > $ctime) {
    %curage = $calc(%curyear - $asctime(%birthday,yyyy) - 1)
    %timeleft = $duration($calc($ctime(%nextbirthday 00:00:00) - $ctime))
    /say I am %curage years old. I turn $calc(%curage + 1) in %timeleft
  }
  else {
    %curage = $calc(%curyear - $asctime(%birthday,yyyy))
    %nextbirthday = $asctime(%birthday,dd/mm) $+ / $+ $calc(%curyear + 1)
    %timeleft = $duration($calc($ctime(%nextbirthday 00:00:00) - $ctime))
    /say I am %curage years old. I turn $calc(%curage + 1) in %timeleft
  }
}


alias age2 {
  var %age $ctime - $ctime(Oct 02 1985 23:00:00)
  var %mil $round($calc(%age /60 /60 /24 /365.242199 /1000),2) millenia
  var %cen $round($calc(%age /60 /60 /24 /365.242199 /100),2) centuries
  var %dec $round($calc(%age /60 /60 /24 /365.242199 /10),2) decades
  var %yea $round($calc(%age /60 /60 /24 /365.242199),2) years
  var %mon $round($calc(%age /60 /60 /24 /365.242199 *12),2) months
  var %wee $round($calc(%age /60 /60 /24 /7),2) weeks
  var %day $round($calc(%age /60 /60 /24),2) days
  var %hou $round($calc(%age /60 /60),2) hours
  var %min $round($calc(%age /60),2) minutes
  var %sec %age seconds
  say My age in different formats: %mil $+ , %cen $+ , %dec $+ , %yea $+ , %mon $+ , %wee $+ , %day $+ , %hou $+ , %min $+ , %sec
}