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