Re: 履歴書スタイルファイルの年齢

名前: 土屋
日時: 2004-01-15 02:02:53
IPアドレス: 130.54.130.*

>>24907

どうも有難うございました．以下のマクロ(昭和生まれのことしか考えていま
せんが)をプリアンブルに書いたところ，自動的に計算されるようになりまし
た．これでしょうもないミスをせずに済みます．

\def\autobirthday#1#2#3{%
  \newcount\birthyear
  \newcount\birthmonth
  \newcount\birthdow
  \newcount\myage
  \birthyear=#1
  \birthmonth=#2
  \birthdow=#3
  \myage=\year
  \advance\myage by -\birthyear
  \ifnum \birthmonth > \month
    \advance\myage by -1
  \else
    \ifnum \birthmonth = \month
      \ifnum \birthdow > \day \advance\myage by -1 \fi
    \fi
  \fi
  \if西暦
    \birthday{\number\birthyear{}年\number\birthmonth{}月\number\birthdow{}日}
  \else
    \advance\birthyear by -1925
    \birthday{昭和\number\birthyear{}年\number\birthmonth{}月\number\birthdow{}日}
  \fi
  \yearsold{\number\myage}}

この書き込みへの返事：