年齢を計算する関数です。エクセルで生年月日から年齢をしたい場合誕生日が来ているかどうか、うるう年生まれの場合など計算が必要ですが、この関数で簡単に計算できます。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「Age」が使用できます。
使い方は
ワークシート上で = Age(誕生日,計算日) の関数として使用することで、 計算日時点の年齢を取得できます。
【例】
Age(1995/2/20,2003/3/1) ⇒ 8
Function AgeOJ(Day1 As Date, Day2 As Date)
’ 年齢を計算する関数
’ Age(誕生日,計算日)
’ Age(2017/03/10,2019/3/20)→ 2
On Error GoTo EXITFUN
Dim i As Long
Dim CAge As Long
CAge = 0
For i = 1 To 10000
If Day2 < DateSerial(Year(Day1) + i, Month(Day1), _
Day(Day1)) Then
Exit For
Else
CAge = CAge + 1
End If
Next
AgeOJ = CAge
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。