和暦、西暦の変換について(VBA)
こんにちは、VBAで西暦年から和暦年への変換でエラーが出て原因がよく分かりません。
下のようにして、変換してやろうとしてもyear1,month1,day1の型が違いますとかのエラーが出て、変数の型をInteger、String、
Variantでとろうとしてもエラーばかりです、宜しくお願いします。
もっと簡単に出来る方法があると思うのですが、よく分かりません。
曜日まで「平成○年○月○日(木)」というような表示形式にしたいのです。
year1 = Year(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"))
month1 = Month(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"))
day1 = Day(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"))
youbi1 = Right(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"), 4) - Right(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"), 3)
TextBox3.Value = "平成" + (year1 - 1988) + "年" + month1 + "月" + day1 + "日" + "(" + youbi1 + ")"
お礼
ありがとうございました。 例では、TODAY関数でしたが、DATE関数でも問題なく表示することができました。