% From: woo@ornl.gov (John W. Wooten)
% Date: 7 Jun 91 19:41:12 GMT
%
% with the \ifnum < 100 added by Eric Olson <ejo@ims.alaska.edu>
%
% This \age{mm/dd/yy} gives # of years between today and mm/dd/yy.
% If dates before 1900 needed then comment out line with 1900 and
% use \age{mm/dd/yyyy}.
%
\catcode`@=11
\newcount\@tempnuma
\def\@null{null}
\def\age#1{\@age#1\@null}
\def\@age#1/#2/#3\@null{%
        \@tempnuma\year
	\ifnum#1<100
		\advance\@tempnuma by -1900
	\fi
        \advance\@tempnuma by -#3\relax  % gives # of years 
        %\number\@tempnuma
	\ifnum#1 > \month	%anniv month is later in year
			\advance\@tempnuma by -1\relax
	\else
			\ifnum#1 = \month	%anniv month is this month
				\ifnum#2 > \day	%anniv day is later in month
					\advance\@tempnuma by -1\relax
				\fi\relax
			\fi\relax
	\fi\relax
    \number\@tempnuma}
\catcode`@=12
%
%
%Test cases  
%\age{5/6/84}, \age{5/7/84}, \age{5/8/84},
%\age{6/6/84}, \age{6/7/84}, \age{6/8/84},
%\age{7/6/84}, \age{7/7/84}, \age{7/8/84}.
%
