Excel VBA 生年月日から現在の年齢を取得する

Sub 年齢計算()
Dim 生年月日 As Variant
Dim 年齢 As Variant
戻る:
生年月日 = InputBox("生年月日を入力してください。yyyy/mm/dd形式")
If IsDate(生年月日) Then
年齢 = DateDiff("yyyy", 生年月日, Date) + (Format(生年月日, "mmdd") > Format(Date, "mmdd"))
MsgBox 年齢 & "歳です。"
Else
MsgBox "入力形式がちがいます。"
GoTo 戻る
End If
End Sub

3行目【　Dim 年齢 As Variant　】
DateDiff【ﾃﾞｲﾄﾃﾞｨﾌｧﾚﾝｽ】関数とFormat【ﾌｫｰﾏｯﾄ】関数を使用して計算した年齢を格納する変数「年齢」をバリアント型(Variant)で宣言します。

4行目【　戻る:　】
6行目の条件分岐でIsDate【ｲｽﾞﾃﾞｲﾄ】関数の条件が一致しなかった場合。すなわち、Inputbox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数に入力された値が日付に変換できない場合に、11行目のGoTo【ｺﾞｯﾄｩ】ステートメントでこの位置まで処理が戻ります。

5行目
【　生年月日 = InputBox(“生年月日を入力してください。yyyy/mm/dd形式”)　】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用してユーザーに生年月日を入力してもらい、変数「生年月日」に代入します。

6行目【　If IsDate(生年月日) Then　】
If【ｲﾌ】ステートメント文を使用して条件式にIsDate【ｲｽﾞﾃﾞｲﾄ】関数の引数を変数「生年月日」を指定して、変数「生年月日」が日付データであるときを定義します。

7行目【　年齢 = DateDiff(“yyyy”, 生年月日, Date) + (Format(生年月日, “mmdd”) > Format(Date, “mmdd”))　】
6行目の条件分岐で条件が成立した場合(Trueの場合)に処理が行われます。DateDiff【ﾃﾞｲﾄﾃﾞｨﾌ】関数を使用して現在日(Date)から変数「生年月日」の年(“yyyy”)の差を計算します。DateDiff【ﾃﾞｲﾄﾃﾞｨﾌ】関数では月日が考慮されていないので、Format【ﾌｫｰﾏｯﾄ】関数で、変数「生年月日」とDate【ﾃﾞｲﾄ】関数(本日の日付）から　月日を取り出して比較演算子で比較をします。比較演算子の条件が成立した場合つまり、変数「生年月日」に格納されている誕生日の月日が現在の月日を超えている場合（本年の誕生日を迎えていない場合）はTrue(-1) が返り、条件が成立しない場合つまり、変数「生年月日」に格納されている誕生日の月日が現在の月日を超えていない場合（本年の誕生日が過ぎた場合）はFalse(0)が返るので、これを利用してDateDiff【ﾃﾞｲﾄﾃﾞｨﾌ】関数で求めた年数に本年の誕生日が過ぎたら(0)誕生日がきていなかったら(-1)を加算することで満年齢を求めて、変数「年齢」に代入します。

8行目【 MsgBox 年齢 & “歳です。” 　】
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用して変数「年齢」に格納されている年齢をを表示します。

10行目【　MsgBox “入力形式がちがいます。”　】
6行目の条件分岐で条件が不成立だったときすなわち、変数「生年月日」が日付データに変換できないときMsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数でメッセージをだします。

11行目【　GoTo 戻る　】
6行目の条件分岐で条件が不成立だったときすなわち、変数「生年月日」が日付データに変換できないとき、GoTo【ｺﾞｳﾄｩ】ステートメントを使用して4行目の【戻る：】まで処理を戻します。

Private Sub TextBox1_AfterUpdate()
Dim 生年月日 As Variant
Dim 年齢 As Variant
 生年月日 = TextBox1.Value
 If IsDate(生年月日) Then
年齢 = DateDiff("yyyy", 生年月日, Date) + (Format(生年月日, "mmdd") > Format(Date, "mmdd"))
 TextBox2.Value = 年齢
Else
 MsgBox "入力形式がちがいます。"
 TextBox1 = ""
End If
End Sub