生年月日関係の計算

質問

エクセルのバージョンは2002です。

2000/01/01のような生年月日のデータから、18年と１ヵ月後（年月のみ）のデータを作ります。
書式を変更するのではなく、新しいセルに打ち込みます。
なお、給与計算月（21日～翌20日）によるため、

たとえば1995/7/25なら2013/9
　　　　　1995/7/15なら2013/8
　　　　　1995/11/15なら2013/12　　　　　　
　　　　　1995/11/25なら2014/1
　　　　　1995/12/25なら2014/2
　というように「給与計算月ベースの18年と1ヵ月後」のデータになるような式を作ります。

この条件で、L83のある生年月日を変換するのに
=IF(MONTH(L83)+1=13,YEAR(L83)+19,IF(AND(DAY(L83)>20,MONTH(L83)+2=13),YEAR(L83)+19,YEAR(L83)+18))&"/"&IF(AND(DAY(L83)>20,MONTH(L83)+1=13),2,IF(AND(MONTH(L83)+2=13,DAY(L83)>20),1,IF(DAY(L83)>20,MONTH(L83)+2,IF(MONTH(L83)+1=13,1,MONTH(L83)+1))))

こんな式を強引に作ってうまく適用できたのですが、
もっとうまいやり方は無かったのだろうか・・・と思って質問しました。

やってみると意外に複雑です。
式を単純化できる方いらっしゃいましたら、後学のために教えてください。
よろしくお願いします

回答No.1

mt2008 · ベストアンサー

アドインで分析ツールを有効にしていれば、
=EOMONTH(L83-20,217)+1

アドインを使いたく無いなら
=DATE(YEAR(L83-20)+18,MONTH(L83-20)+2,1)

いずれも、セルの表示形式をユーザ定義でyyyy/mにして下さい。

お礼

両方試して、問題なく適用できました。

DATE関数でうまくいかなくて結局IFにしていたんですが、こんな方法があったとは。

ありがとうございました。-20ってのがミソですね

回答No.3

noname#204879

添付図参照
B1: =DATE(YEAR(A1)+18,MONTH(A1)+1+(DAY(A1)>20),1)
　　書式は yyyy/mm

お礼

ありがとうございます。

やはりDATE関数でDAYを１日に固定するのが鉄板ですね

回答No.2

某HN クロメート(Chromate)（@CoalTar）

こんな感じでも良いかな
=TEXT(DATE(YEAR(L83)+18,MONTH(L83)+1+(DAY(L83)>20),1),"yyyy/m")

お礼

わざわざ書式を変えなくてもいいのですね。TEXT関数なんて初めて知りました。

ありがとうございました