[[20150324103100]]　『3年後の西暦と和暦を表示』（さくら）　ページの最後に飛ぶ

『3年後の西暦と和暦を表示』（さくら）

よろしくお願いします。

受講者の資格有効期限が３年なので、修了証に次期講習年度を表示させたいのですが、年度が４月から３月となっています。

１月から１２月ではないのでプラス３では１月～３月がずれてしまいます。

今年度でしたら
２０１５年４月から２０１６年３月までの有効期限が２０１８年となります。
それをJ列に表示し、L列に和暦で表示したいのですがどうすればいいでしょうか？
取り敢えず12月までは下記の方法で大丈夫なのですが。

マクロの一部です。

 Range("J1").Resize(mxR).Value = Year(Date) + 3 & "年度"
 Range("L1").Resize(mxR).Value = "（平成３０年度）"

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 良く解ってないけど。
 MsgBox Format(Year(Date) + 3 & "/1/1", "（ggge") & "年度）"
 ???
 BJ

    Dim dw As Date

    dw = DateSerial(Year(Date) + 3, Month(Date) - 3, 1)
    Range("J1").Resize(mxR).Value = Format(dw, "YYYY年度")
    Range("L1").Resize(mxR).Value = Format(dw, "(ggge)年度")
（???） 2015/03/24(火) 12:10

BJさん
ボックスが出ました。

???さん
ありがとうございます。
きちんと表示されました。

お二方とも早々のご回答をありがとうございます。
感謝いたします。
（さくら） 2015/03/24(火) 13:18

コメント返信：

[ 一覧(最新更新順) ]

[[20150324103100]] 『3年後の西暦と和暦を表示』（さくら） ページの最後に飛ぶ

[[20150324103100]]　『3年後の西暦と和暦を表示』（さくら）　ページの最後に飛ぶ