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

版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/516.html

发表评论

评论列表(0人评论 , 30人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯