Description: Simply replace the 6 variables at the top by your birthdays data

alias alter {

  var %day = 19
  var %month = march
  var %year = 1989
  var %hour = 23
  var %minute = 55
  var %second = 0

  var %seconds = $calc($ctime - $ctime(%month %day %year %hour $+ : $+ %minute $+ : $+ %second))
  var %bdthis = $calc($ctime(%month %day $asctime(yyyy) %hour $+ : $+ %minute $+ : $+ %second) - $ctime)
  var %bdnext = $calc($ctime(%month %day $calc($asctime(yyyy) + 1) %hour $+ : $+ %minute $+ : $+ %second) - $ctime)
  var %seconds2birthday = $iif(%bdthis > 0,%bdthis,%bdnext)
  var %days2birthday = $calc(%seconds2birthday / 3600 / 24)
  me is [^U] $+ $calc(%seconds / 365.25 / 24 / 3600) $+ [^U] years old ( $+ %seconds seconds) $chr(91) $+ [^B]Next birthday: [^O][^U] $+ $round(%days2birthday,0) $+ [^U][^O] $iif($round(%days2birthday,0) == 1,day,days) left $+ $chr(93)
}

Just what i use:


alias bd {
  if ($5 == 1) { return $calc(($ctime - $ctime($1 $2 $3 $4)) / 3600 / 24 / 365.25) }
  elseif ($5 == 2) { return $calc($ctime - $ctime($1 $2 $3 $4)) }
  elseif ($5 == 3) { return $dur2($calc($ctime - $ctime($1 $2 $3 $4))) }
  elseif ($5 == 4) { return $calc($ctime - $ctime($1 $2 $3 $4)) }
  elseif ($5 == 5) { return $iif($calc($ctime($1 $2 $asctime(yyyy) $4) - $ctime) > 0,$dur2($calc($ctime($1 $2 $asctime(yyyy) $4) - $ctime)),$dur2($calc($ctime($1 $2 $calc($asctime(yyyy) + 1) $4) - $ctime))) }
  elseif ($5 == 6) { return $iif($calc($ctime($1 $2 $asctime(yyyy) $4) - $ctime) > 0,$calc($ctime($1 $2 $asctime(yyyy) $4) - $ctime),$calc($ctime($1 $2 $calc($asctime(yyyy) + 1) $4) - $ctime)) }
}
alias dur2 {
  if ($1 !isnum) { halt }
  var %years $floor($calc($1 / 3600 / 24 / 365.242199))
  var %months $floor($calc(($1 - %years * 365.242199 * 24 * 3600) / 3600 / 24 / 30.4375))
  var %wdhs $duration($calc(($1 - (%years * 365.242199 * 24 * 3600) - (%months * 30.4375 * 24 * 3600))))
  return $iif(%years != 0,%years $+ yrs) $iif(%months != 0,%mths $+ mons) %wdhs
}


Mine is a lot simpler :/
Usage == $bday(Month Day Year)

alias bday {
  var %b = $1-
  var %r = $calc($ctime(%b) - $ctime)
  var %o = $+($round($calc(%r /60 /60 /24 /30 /12),2),-Years $calc(%r /60 /60 /24 /30),-Months $calc(%r /60 /60 /24),-Days $calc(%r /60 /60),-Hours $calc(%r /60),-Minutes %r,-Seconds)
  return %o
}


Oops! You need to login or register before you can post a comment!