excel用出生日期来计算年龄的两个自定义函数

excel用出生日期来计算年龄的两个自定义函数

如果要用出生日期来计算年龄，可以用自定义函数来完成。在VBA编辑器中单击菜单“插入→模块”，并将下面的代码放入其中，以下两段代码都是按虚岁计算的，任选一种即可。

方法一：

Function Age(BirthDate As Date)Select Case Month(Date)Case Is < Month(BirthDate)Age = Year(Date) – Year(BirthDate)Case Is = Month(BirthDate)If Day(Date) >= Day(BirthDate) ThenAge = Year(Date) – Year(BirthDate) + 1ElseAge = Year(Date) – Year(BirthDate)End IfCase Is > Month(BirthDate)Age = Year(Date) – Year(BirthDate) + 1End SelectEnd Function

方法二：将一年按365.25天计算，在极少数情况下可能会出错。

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

使用方法：假如出生日期在A1单元格中，如“1971-12-1”，在B1单元格中计算年龄，则在B1单元格中输入公式

=age(A1)

B1单元格返回计算结果为38。请确保A1单元格为日期格式，否则会出现“#VALUE!”错误。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。