Excel運用出生日期來計算年齡的兩個自定義函數

如果要用出生日期來計算年齡，可以用自定義函數來完成。在VBA編輯器中單擊菜單“插入→模塊”，并將下面的代碼放入其中，以下兩段代碼都是按虛歲計算的，任選一種即可。

方法一：

Function Age(BirthDate As Date)
Select Case Month(Date)
Case Is <>
Age = Year(Date) - Year(BirthDate)
Case Is = Month(BirthDate)
If Day(Date) >= Day(BirthDate) Then
Age = Year(Date) - Year(BirthDate) + 1
Else
Age = Year(Date) - Year(BirthDate)
End If
Case Is > Month(BirthDate)
Age = Year(Date) - Year(BirthDate) + 1
End Select
End Function

方法二：將一年按365.25天計算，在極少數情況下可能會出錯。

Function Age(BirthDate As Date)
Age = Int((Date - BirthDate) / 365.25) + 1
End Function

使用方法：假如出生日期在A1單元格中，如“1971-12-1”，在B1單元格中計算年齡，則在B1單元格中輸入公式

=age(A1)

B1單元格返回計算結果為38。請確保A1單元格為日期格式，否則會出現“#VALUE!”錯誤。