excel用出生日期来计算年龄的两个自定义函数
时间:2023-06-26 18:41:47
如果要用出生日期来计算年龄,可以用自定义函数来完成。在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!”错误。
标签:出生日期,单元格,自定义,计算,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Office 2016最新预览版下载 部分新功能上线
2015-08-04 02:04:55
![](https://img.aspxhome.com/file/2023/0/15540_0s.jpg)
Win11怎么快速返回桌面 Win11快速返回桌面快捷键
2022-07-12 10:02:43
![](https://img.aspxhome.com/file/2023/27/a236660_0s.png)
wps如何设置页边距
2022-11-16 11:17:23
随机排序:播放Excel数据(01)
2022-08-10 05:31:49
![](https://img.aspxhome.com/file/2023/8/a143058_0s.jpg)
win10时不时弹出输入法怎么办?win10时不时就弹出输入法解决教程
2023-03-13 22:34:38
![](https://img.aspxhome.com/file/2023/28/a240820_0s.jpg)
哪个牌子的笔记本电脑性价比最高?性价比高的笔记本品牌介绍
2022-05-03 00:39:50
![](https://img.aspxhome.com/file/2023/6/a323559_0s.jpg)
怎样在Excel成绩折线图中添加平均值线
2023-05-28 01:39:19
![](https://img.aspxhome.com/file/2023/9/38089_0s.png)
Win10无法显示hosts文件怎么办?
2023-12-09 14:40:44
![](https://img.aspxhome.com/file/2023/26/a227180_0s.jpg)
excel中绝对引用,相对引用,与快捷键相对引用图文教程
2022-09-01 15:41:09
![](https://img.aspxhome.com/file/2023/6/37516_0s.jpg)
Win7系统电脑桌面图标都没了怎么办?
2022-09-08 19:29:34
![](https://img.aspxhome.com/file/2023/27/a231386_0s.jpg)
Pixelmator Pro 教程「119」,如何在 Pixelmator Pro 中应用棕褐色调效果?
2022-07-14 09:52:02
![](https://img.aspxhome.com/file/2023/10/a344112_0s.jpeg)
excel中冻结窗口的方法
2023-03-08 05:59:46
excel排序公式的使用方法教程
2023-06-03 04:33:17
如何在PPT里设计放射线效果的背景图
2023-03-07 21:14:28
![](https://img.aspxhome.com/file/2023/10/a351573_0s.jpg)
0x00000019蓝屏代码是什么意思?0x00000019蓝屏代码解决办法
2023-06-07 02:58:48
![](https://img.aspxhome.com/file/2023/6/a322310_0s.jpg)
怎么检测电脑性能 专业电脑跑分软件介绍
2022-11-14 10:27:59
CCleaner如何使用?怎么通过CCleaner清理系统垃圾信息?
2022-12-06 00:59:59
![](https://img.aspxhome.com/file/2023/8/a339794_0s.jpg)
无线路由器密码破解教程 如何破解无线密码?
2022-11-30 17:29:06
![](https://img.aspxhome.com/file/2023/6/a326581_0s.jpg)
教你记事本命令法 快速删除指定注册表键值
2022-10-17 11:37:50
![](https://img.aspxhome.com/file/2023/27/a234404_0s.jpg)
如何让Win7打完补丁不再频繁提示“重启系统”
2022-03-12 19:15:23
![](https://img.aspxhome.com/file/2023/29/a259142_0s.jpg)