いちおう思いついたものを書いておく。 何ヶ月と何日、はDate::Calcモジュールでは簡単には出せなそう。 $ perl -MDate::Calc=:all -e'$ARGV[0]+=17;printf"17歳と%d日$/",Delta_Days@ARGV,Today' 1982 12 10 17歳と3428日 追記：月と日 やっぱりDateTimeモ…