Excel で生年月日から年齢を取得または計算する

Excel ワークシートに従業員の誕生日リストがある場合、それぞれの年齢を計算したくなるもの。そんなときには、YEARFRAC や DATEDIF といった便利な関数を使えば、誕生日から簡単に年齢を取得できます。

• YEARFRAC 関数で誕生日に基づいて年齢を計算する
• DATEDIF 関数で誕生日に基づいて年齢を計算する
• 誕生日に基づいて年・月・日単位で年齢を計算する
• Excel で特定の日付における年齢を計算する
• 1900 より前の生年月日に基づいて年齢を計算する
• 現在の日付または特定の日付からの生年月日に基づいて、便利な機能で年齢を計算する

YEARFRAC 関数で誕生日に基づいて年齢を計算する

Excel では、YEARFRAC 関数を使って指定した生年月日から年齢を計算できます。一般的な構文は次のとおりです。

• birthdate：誕生日
• TODAY()：この関数は、今日の日付を返します。

したがって、下記の数式を空白セルにご入力ください。

次に、この数式を適用したいセルまでフィルハンドルをドラッグすると、すべての年齢が小数で計算・表示されます（下記スクリーンショット参照）。

ヒント：YEARFRAC 関数を使うと、計算結果は小数になります。年齢を整数で表示するには、次のように INT 関数と組み合わせてください。

すると、年齢が整数で表示されます。

DATEDIF 関数で誕生日に基づいて年齢を計算する

DATEDIF 関数を使えば、生年月日から年齢を簡単に算出できます。一般的な構文は次のとおりです。

• birthdate：誕生日の日付。
• TODAY()：この関数は今日の日付を返します。
• y：誕生日から現在日付までの満年齢（年数）を返します。

次に、次の数式を空白セルに入力するか、コピーしてください。

これにより、生年月日に基づいてすべての年齢が自動計算されます（下記スクリーンショット参照）。

誕生日に基づいて年・月・日単位で年齢を計算する

人物の正確な年齢（誕生日から現在の日付までの年数、月数、日数）を取得するには、DATEDIF 関数を組み合わせて次のような数式を作成します。

すると、下記のスクリーンショットのように結果が表示されます。

ヒント：上記の数式を適用する際、年・月・日のいずれかが「0」の場合にそれを表示しないようにするには、IF 関数を組み合わせて「0」をチェックできます。次の数式をご利用ください。

すると、下記のスクリーンショットのように、0 の値を含まない「年・月・日」形式で年齢が表示されます。

Excel で特定の日付における年齢を計算する

場合によっては、現在の日付ではなく、特定の日付時点での年齢を取得したいことがあります。その場合は、第2 引数の TODAY()関数を任意の日付に置き換えるだけで簡単に実現できます。例：

• birthdate：誕生日の日付。
• specific_date 生年月日から年齢を計算する際の終了日。
• y：誕生日から現在の日付までの満年齢（年数）を返します。

次の数式をご利用ください。

すると、下記のスクリーンショットのように、生年月日から指定した日付までの年齢が自動的に計算されます。

ヒント：年齢を正確な年・月・日で取得するには、次の数式をご利用ください。

1900 より前の生年月日に基づいて年齢を計算する

前述の数式は、生年月日が1900 年より前の場合に正しく動作しません。なぜなら、Excel では1900 年より前の日付を入力すると、自動的にテキスト形式で保存されるためです。そのため、生年月日が1900 年より前であっても年齢を正確に取得できるユーザー定義関数を以下に示します。

1。「Alt + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。

2。次に、「挿入」→「標準モジュール」をクリックし、以下の VBA コードをモジュールウィンドウにコピーしてください。

1900 より前の生年月日から今日までの年齢を計算する

Function AgelnNow(ByVal xDate As Variant)
Dim xIA As Integer
xIA = 0
On Error Resume Next
xIA = DateDiff("yyyy", xDate, Now())
If (Month(Now()) < Month(xDate)) Or (Month(xDate) = Month(Now())) Then
If (Day(Now()) < Day(xDate)) Then
xIA = xIA - 1
End If
End If
If xIA = -1 Then
AgelnNow = "Error"
Else
AgelnNow = xIA
End If
End Function

3。次に、空白セルに次の数式を入力してください：=AgelnNow(A2)（A2は生年月日が入力されているセル）

次に、年齢を取得したいセルまでフィルハンドルをドラッグすると、生年月日から今日までの年齢がすべて自動計算されます（下記スクリーンショット参照）。

ヒント：現在の日付ではなく、死亡日までの年齢を取得したい場合は、以下のコードをご利用ください。

1900 より前の生年月日から死亡日までの年齢を計算する

Function Age(ByVal StartDate As Variant, ByVal EndDate As Variant)
    Dim xIA As Integer
    xIA = 0
    On Error Resume Next
    xIA = DateDiff("yyyy", StartDate, EndDate)
    If (Month(EndDate) < Month(StartDate)) Or (Month(StartDate) = Month(EndDate)) Then
        If (Day(EndDate) < Day(StartDate)) Then
            xIA = xIA - 1
        End If
    End If
    If xIA = -1 Then
       Age = "Error"
    Else
        Age = xIA
    End If
End Function

次の数式を使用します：=Age(A2,B2)（A2は生年月日のセル、B2は死亡日のセル）で、下のスクリーンショットのように結果が得られます。

現在の日付または特定の日付からの生年月日に基づいて、便利な機能で年齢を計算する

使用する関連関数：

関連する年齢計算の記事：