体验零代码搭建

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

网友投稿  ·  2023-05-07 10:05  ·  在线excel  ·  阅读 872


Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。

如果要用出生日期来计算年龄,可以用自定义函数来完成。在VBA编辑器中单击菜单“插入→模块”,并将下面的代码放入其中,以下两段代码都是按虚岁计算的,任选一种即可。 方法一: Function Age(BirthDate As Date)Select Case Month(Date)Case Is < Month(BirthDate)Age = Year(Date) - Year(BirthDate)

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!”错误。


Excel利用VBA列出工作表中的所有公式 << 上一篇
2023-05-07 10:05
Excel利用VBA批量添加邮件链接
2023-05-07 10:05
下一篇 >>

相关推荐