Ｅｘｃｅｌで～年後、～ヶ月後の入力を行いたいのですが…

一覧表を作成し、○ヶ月後・○年後といった資料を作っています。「ＥＤＡＴＥ」の数式を使ったのですが、うるう年が反映してしまうのか思ったような日付が出ません！！
こちらの希望としましては、
例えば、
平成１０年３月１２日の１０年後が…、
平成２０年３月１２日に。
平成１５年３月１２日の２０年後が…、
平成３５年３月１２日に。
と、きっちり進んでくれたら何よりです。

どなたか良い方法を教えて下さい！
宜しくお願いします！！

No.1 ベストアンサー 回答者： FEX2053 回答日時： 2007/03/12 10:32

今の日付が「日付」形式でA1にあるとして、

=DATE(YEAR(A1)+10,MONTH(A1),DAY(A1))

これで10年後の日付が出てきます。20年後なら+20ですね。
ちなみに、2/29でこれを試してみると、3/1が出てきます。
それで良ければいいんですが、2/28にしたい場合はIF文で
制御する必要が出てきますね。

この回答への補足

早速のご回答ありがとうございます！

頂いた数式をもとに試してみました。
ご回答文の通り今の日付をうるう年に設定し、未来の日付がうるう年にあたった場合に翌日である３月１日が反映しました。

この場合にＩＦ文を使って３月１日でなくて２月２８日に反映させる場合はどのような数式を当てはめると良いのでしょうか？

度々申し訳ありませんが、お知恵を拝借頂けましたら幸いです！！

補足日時：2007/03/12 11:26

No.5 回答者： shinkami 回答日時： 2007/05/27 12:40

月が変わるのが問題ですか

この差異を利用します。

今の日付が「日付」形式でA1にあるとして、

=DATE(YEAR(A1)+10,MONTH(A1),DAY(A1))
-MONTH(DATE(YEAR(A1)+10,MONTH(A1),DAY(A1)))
+MONTH(A1)

No.4 回答者： gatt_mk 回答日時： 2007/03/12 13:13

先ほどの１０日後は

１０日後なら =date_add("d",10,C1)
の間違いです。
訂正します。

No.3 回答者： gatt_mk 回答日時： 2007/03/12 13:12

VBAではDateAdd関数が使えますので、VBAのファンクションプロシージャでオリジナルの関数を作ってみたら簡単に１０年後とか１０ヶ月後とか１０日後が指定できると思います。

参考
Public Function date_add(inter As String, i As Double, strDate As Date) As Date

date_add = DateAdd(inter, i, strDate)

End Function

指定したいセルに関数として下記のように入力してください。
=date_add("yyyy",10,C1)
C1に基準となる日付が入っている場合です。
１０ヶ月後なら =date_add("m",10,C1)
１０日後なら =date_add("m",10,C1)
で値が求められます。

そのままでは数値として表示されてしまうので、正しい元号日付に表示させるには表示書式を変更してください。

No.2 回答者： mshr1962 回答日時： 2007/03/12 11:40

EDATEでそうなりませんか？どのような日付になるんでしょうか？

普通の数式でもある程度はできますが、問題は29～31日をどうするかという問題が残ります。
年単位の場合2000年2月29日の翌年を
2月28日にするなら
=EDATE(A1,12)
3月1日でいいなら
=DATE(YEAR(A1)+1,MONTH(A1),DAY(A1))
※この例で1月31日の翌月は2月31日=2月28日+3日で3月3日になります。
あくまで2001年2月29日としたいなら
=TEXT(DATE(YEAR(A1)+1,1,1),"ggge年")&TEXT(A1,"m月d日")
としてください。