VBA_カレンダーコントロールの和暦表示

質問

現在、フォーム上にカレンダーコントロールを作成して
クリックされた日付をテキストボックスに返すものを作成しているのですが
カレンダーコントロールの年の表示は西暦になっています。
この部分を和暦にしたいのですが、いじくるところがまったく見当たりません。
何か方法はあるのでしょうか？
ご教授お願いいたします<(_ _)>

回答No.4

n-jun

横から失礼して。
>和暦カレンダーの自作が必要なのでしょうか。
自作が必要になるかと思います。

リンク先のＶＢ関連の方も和暦への変更は出来ないようです。
アドインもダメだとすると、他には・・・自作かな？っと。

回答No.3

imogasi

VBAというからにはエクセルVBAなどでしょう。
（１）フォームやシート状のテキストボックスなどの上
（２）シートのセルの上
などなら、（１）はFormat関数
（２）はセルの表示形式の設定で済むことでは。
（１）（２）で済むことなのか質問にはっきりさせること。
既存カレンダーコントロールの体裁や仕様はいじくれないことになっているはず。
その点どうしても不満なら（趣味の世界と思うが）、拡張機能のコントロールをWEB上で探すとか、カレンダーコントロールなら自作も可能ではと思う。

補足

説明不足がありまして申し訳ございません。
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06_2.htm
こちらのページの最上段にあるフォームの絵を使って説明すると
フォームの右上部分に「2003」とコンボボックスで西暦が表示されていますが
この表示形式自体（コンボボックスの表示）を和暦で行いたいのです。

imogasiさんの文章を読むとここはいじくれないのかなと
感じてますがいかがでしょうか。
アドオンなどは使用できないため、いじくれないとなると
和暦カレンダーの自作が必要なのでしょうか。

回答No.2

n-jun

>この部分を和暦にしたいのですが
”この部分”が示すのはTextBox？
それともカレンダーコントロールそのもの？

後者であれば、
Tips06: カレンダーコントロール色々
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm
あたりを一読されては？

回答No.1

redfox63

DateValueとFormatを使えば変換可能ですよ

TextBox1.Text = Format( DateValue( Calendar1.Value ), "gge/mm/dd")
といった具合でしょう
この例ですと平20/07/14 といった具合になります

書式文字列についてはヘルプなどで確認してください