投稿者: oki2a24

ポイント

• Format 関数を使用する。
• Format(y & "/1/1", "e") → y & "/1/1": y に 4 桁の西暦年が入って年月日となる。"e": 和暦の年を指定するフォーマット
• 日付けを # で囲いたかったが、エラーとなるため ” で囲った。
• 月日は元号の境目を意識しないで済むように 1 月 1 日とした。

VBA コード

Public Sub Test()
    Dim y As String: y = "2016"
    Debug.Print "和暦年数字: " & Format(y & "/1/1", "e")
End Sub

結果

和暦年数字: 28

学年を求めるためには、4月1日時点で何歳か?、を算出する必要がごさいます。

例えば、次のようになります。

• 2015/4/1 に 0 歳とカウントされる生まれ: 2014/4/2-
• 2015/4/1 に 1 歳とカウントされる生まれ: 2013/4/2-2014/4/1
• 2015/4/1 に 2 歳とカウントされる生まれ: 2012/4/2-2013/4/1
• 2015/4/1 に 3 歳とカウントされる生まれ: 2011/4/2-2012/4/1
• 2015/4/1 に 4 歳とカウントされる生まれ: 2010/4/2-2011/4/1
• 2015/4/1 に 5 歳とカウントされる生まれ: 2009/4/2-2010/4/1

これを、基準日と誕生日を渡してやれば算出してくれる VBA を書きました♪

• 【Excel VBA】配列やコレクションの定数クラスを用意するコード♪ – oki2a24

の改善版ですわ♪

変更ポイント

• プロパティのコメントから を削除した。
• ディクショナリを生成するのは 1 つの関数にまとめ、抽象度を上げた。
• 以前は定数ディクショナリの種類ごとに生成関数を定義していたのが、修正後は定義ディクショナリがいくつあっても 1 つのディクショナリ生成関数を使用するだけでよくなった。
• 修正前のディクショナリ生成関数の流れ
  1. コンストラクタからディクショナリ生成関数を呼ぶ。
  2. ディクショナリ生成関数内で定数要素をディクショナリに追加していく。
  3. ディクショナリ生成関数内でディクショナリをプロパティに代入する。
• 修正後のディクショナリ生成関数の流れ
  1. コンストラクタで定数を配列で定義する。
  2. それをディクショナリ生成関数に渡す。
  3. 返り値をプロパティに代入する。

• 【Excel VBA】ワークシートに入力したマスタデータを VBA から簡単に利用できるようにしたクラスのコード！ – oki2a24

の改善版！

ポイント

• プロパティ (クラス変数) は Public メソッド以外から呼ばないようにした。
• 関数型プログラミング入門 | プログラミング | POSTD の「副作用がない」コードという考え方を参考にした。
• 結果、Private 関数の引数が増えた。デメリットと感じる。
• 結果、プロパティが減り、ロジックが単純になった。うれしい！