Miscellany

alias age {
var %seconds $calc($ctime - $ctime(February 03 1988 23:55:00))
var %bdthis $calc($ctime(February 03 $asctime(yyyy) 23:55:00) - $ctime)
var %bdnext $calc($ctime(February 03 $calc($asctime(yyyy) + 1) 23:55:00) - $ctime)
var %seconds2birthday = $iif(%bdthis > 0,%bdthis,%bdnext)
var %days2birthday $calc(%seconds2birthday / 3600 / 24)
1me is  $+ $calc(%seconds / 365.25 / 24 / 3600) $+  years old ( $+ %seconds seconds) $chr(91) $+ Next birthday:  $+ $round(%days2birthday,0) $+  $iif($round(%days2birthday,0) == 1,day,days) left $+ $chr(93)
}