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

Excelワークシートに従業員の生年月日のリストがあり、それぞれの年齢を計算したいとします。Excelには、YEARFRACやDATEDIFなどの便利な関数があり、これらを使用して誕生日から簡単に素早く年齢を取得できます。

• YEARFRAC関数を使用して生年月日に基づいて年齢を計算する
• DATEDIF関数を使用して生年月日に基づいて年齢を計算する
• 生年月日に基づいて年齢を年、月、日単位で計算する
• Excelで特定の日にちの年齢を計算する
• 1900年以前の生年月日に基づいて年齢を計算する
• 現在または特定の日付から生年月日に基づいて年齢を計算する驚きの機能

YEARFRAC関数を使用して生年月日に基づいて年齢を計算する

Excelでは、YEARFRAC関数を使用して指定された生年月日から年齢を取得できます。一般的な構文は次の通りです：

• 生年月日: 誕生日の日付。
• TODAY(): この関数は今日の日付を返します。

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

そして、この数式を適用したいセルまでフィルハンドルをドラッグすると、すべての年齢が計算され、セルに小数として表示されます。スクリーンショットをご覧ください：

ヒント: YEARFRAC関数を使用した場合、計算結果は小数になります。年齢を整数にするには、INT関数を組み合わせて使用する必要があります。次のようにします：

これで、年齢が整数で表示されます：

DATEDIF関数を使用して生年月日に基づいて年齢を計算する

DATEDIF関数も誕生日を年齢に変換でき、一般的な構文は次の通りです：

• 生年月日: 誕生日の日付。
• TODAY(): この関数は今日の日付を返します。
• y: これは誕生日から現在までの完全な年の数を返します。

では、次の数式を空白のセルに入力またはコピーしてください：

これで、生年月日に基づいてすべての年齢が計算されました。スクリーンショットをご覧ください：

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

例えば、生年月日から現在までの正確な年齢（何年、何ヶ月、何日）を取得したい場合、DATEIF関数を1つの数式に連結する必要があります。次のようにします：

これで、次のスクリーンショットのような結果が得られます：

ヒント: 上記の数式を使用する際に0年、0ヶ月、0日を無視したい場合は、IF関数を組み合わせて0をテストすることができます。次の数式を使用してください：

これで、次のスクリーンショットのように、0の値を含まない年、月、日単位で年齢が表示されます：

Excelで特定の日にちの年齢を計算する

時々、現在の日付ではなく、特定の日付までの年齢を取得したい場合があります。その場合、第二引数のTODAY()関数を特定の日付に変更するだけです。例えば：

• 生年月日: 誕生日の日付。
• 特定の日付: 生年月日から年齢を計算したい終了日。
• y: これは誕生日から現在までの完全な年の数を返します。

次の数式を使用してください：

これで、次のスクリーンショットに示すように、生年月日から特定の日付までの年齢が計算されました：

ヒント: 正確な年、月、日単位の年齢を取得するには、次の数式を使用してください：

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

上記の数式は、生年月日が1900年以前の場合、正しく動作しません。1900年以前の日付を入力すると、Excelでは自動的にテキスト形式で保存されるためです。そこで、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は死亡日セル）結果は次のスクリーンショットに示されています：

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

関連する関数：

関連する年齢計算記事：