投稿者: oki2a24

学年を求めるためには、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 関数の引数が増えた。デメリットと感じる。
• 結果、プロパティが減り、ロジックが単純になった。うれしい！