• 締切済み

西暦から和暦に変換する関数を作る

西暦から和暦に変換する関数をVBAで作りたい(昭和と平成だけ)のですが 良くわかりません。どなたか教えて頂けませんか?

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.5

>まずこの問題は学校の宿題です。 学校の宿題など丸投げ的質問はOKWEB規約違反では。 >自分が使える関数は、「引数付きの関数」「IF文」「ElseIF」「SELECT文」位です。 そんなこと、当初の質問のどこにも書いてないじゃないですか。 もう少し解答候補者のことも考えて、質問すべし。 エクセルやそのVBAは一般にビジネス用です。便利な関数があればどんどん使うものですよ。わざわざ低レベルのコーディングを使うことはしない。

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.4

VBAの中で関数が使えますよ。例えばVBAにおけるワークシート関数でTEXT関数。 Sub test01() Cells(3, 1) = #1/10/2005# Cells(3, 2) = WorksheetFunction.Text(Cells(3, 1), "ggge年mm月dd日") End Sub 2005/1/10--->平成17年01月10日 これなら明治(1部)・大正・昭和・平成で大丈夫ですし。

tontsune
質問者

補足

みなさん早速解答ありがとうございます。補足させて頂きます。 ・まずこの問題は学校の宿題です。 ・自分が使える関数は、「引数付きの関数」「IF文」「ElseIF」「SELECT文」位です。 ・ワークシートは、作った関数がきちんと動いているか試すだけなので何も書いてません。 最後に、書き忘れていたのですが、ヒントに 「a=10、b="第”&a&"回大会”とするとbには「第10回大会」とはいる。」がありました。 これで宜しくお願いします。

noname#9284
noname#9284
回答No.3

VBAでなくともワークシート関数はあります。 =TEXT(A1,"ggge年m月d日") ではいけないでしょうか。

回答No.2

余計なお世話かも知れませんが、書式設定で表示方法を和暦にすれば、済むのでは? わざわざ関数にする意図が分かりません。具体的にどういう数字(日付)を与えて、結果としてどういうものが欲しいのか、それをどう使うのか、教えてもらえませんか?

  • shkwta
  • ベストアンサー率52% (966/1825)
回答No.1

もし、西暦の日付も和暦の日付も文字列型(String)であれば、Format関数とDateValue関数を使えばOKです。 Dim strWareki As String Dim strSeireki As String ・・・・・ strWareki = Format(DateValue(strSeireki),"ggge年mm月dd日")

tontsune
質問者

補足

みなさん早速解答ありがとうございます。補足させて頂きます。 ・まずこの問題は学校の宿題です。 ・自分が使える関数は、「引数付きの関数」「IF文」「ElseIF」「SELECT文」位です。 ・ワークシートは、作った関数がきちんと動いているか試すだけなので何も書いてません。 最後に、書き忘れていたのですが、ヒントに 「a=10、b="第”&a&"回大会”とするとbには「第10回大会」とはいる。」がありました。 これで宜しくお願いします。

関連するQ&A

  • 和暦を西暦に、西暦を和暦に変換する計算式

    和暦(日本の年号)を西暦に変換する計算式と、逆に西暦を和暦に変換する計算式を教えてください。例えば昭和52年を西暦に変換すると何年、のようなことです。またこの計算式を忘れないために覚えるコツなどもあれば教えてください。また、この計算式を分かりやすく解説したサイトもあれば教えてください。

  • 西暦→和暦

    avaで、西暦→和暦に変換するプログラムを組みたいのですが、 例えば、 2008/11/22 と入力したら、 平成20年11月22日 と表示されるようなプログラムを作りたいのですが、 (昭和と平成のみ対応) 教えて下さい…m(__)m

  • 和暦変換

    和暦変換 Excel2007で、西暦を和暦に変換したいのですが、都合の良い関数を教えていただけないでしょうか。 例)1988年3月→昭和63年3月

  • エクセルの「和暦・西暦変換」について

    和暦の年月から、西暦の年に変換する方法を教えて下さい。 ☆現在   1、「○○,○○」と年月が全角入力されている   2、平成のみ「平成○○,○○」となっている ☆希望   1、これまで通り、和暦の年月表示は残しておきたい     (全角・半角は問わない)   2、「○○○○」という半角4桁の西暦年で他のセルに表示したい   ※(これにこちょこちょっと手を加えて、あるものの経過年数を計算したいのです) 現在入力されている全角のデータは、「年月」表示さえ出来れば変換に必要な形式に再入力し直すことは可能です。 昭和や平成等がからんでくるので、エクセル初心者の私にはよくわかりません。 宜しくお願いします。

  • 生年月日を訊かれたら和暦・西暦 どっちで答える?

    生年月日を訊かれたら和暦・西暦 どっちで答える? この前ある会社へ行ったところ、面白いカレンダーを見かけました。 西暦2014年 平成26年 昭和89年 大正103年 と書いてあったのです。 私は昭和生まれなのですが和暦で回答すると、年齢がすぐに割り出せないですよね。

  • 西暦から和暦に変換について

    A列の1行目に199809というデータが入っています。 B列の1行目に和暦に変換して明治の場合は1、大正は2、昭和は3、 平成は4を表示したい C列の1行目に和暦に変換して1009と表示して下2桁目に01をつけたい のですが、関数の設定でできますか。 結果は A列の1行目199809 B列の1行目4 C列の1行目100901で表示したい。 教えてください。

  • Excel西暦から和暦

    Excel2007を勉強中の者です。西暦から和暦になおす時に平成であればユーザー定義からggge"年"m"月"d"日"ですが、明治や昭和も変換できるのでしょうか?教えてください。

  • アクセスの和暦変換

    アクセスで西暦を和暦に変換する 関数を指導願います   2012/07/12 を平成24年7月12日 としたいのです

  • Excelで和暦を西暦に直す方法を教えてください。

    Excelで和暦を西暦に直す方法を教えてください。 例えば 250820 と表示の和暦(昭和25年8月20日がこのような表示になっています)を 西暦表示(1950/8/20)に変えるにはどのような関数を使用すればうまくいくでしょうか? よろしくお願い致します。

  • excelで西暦と和暦を表示・変換させたい

    (1) A1に「1980」などと打ち込み、それを西暦「1980年」と表示させたい。 (2) A2で、A1を「昭和55年]と和暦に変換したものを表示させたい。 (1)、(2)を行いたいのですが、どうしたら良いでしょうか?

専門家に質問してみよう