excel计算年龄准确到几岁几月几天

一、符合如下的条件

1岁以上写岁

1月以上写月，

不足月写天。

二、宏代码

Function GetDateDiff(StartD, EndD)

Dim y%, m%, d%

If StartD > EndD Or Not IsDate(StartD) Or Not IsDate(EndD) Then GetDateDiff = "数据有误"

y = DateDiff("yyyy", StartD, EndD)

If DateSerial(Year(EndD), Month(StartD), Day(StartD)) > EndD Then

y = y - 1

If y >= 1 Then GoTo 100

m = 12 - Month(StartD) + Month(EndD)

Else

m = Month(EndD) - Month(StartD)

End If

If Day(EndD) >= Day(StartD) Or Day(EndD) = Day(DateSerial(Year(EndD), Month(EndD) + 1, 0)) Then

If Day(EndD) >= Day(StartD) Then d = Day(EndD) - Day(StartD)

If Day(EndD) < Day(StartD) And Day(EndD) = Day(DateSerial(Year(EndD), Month(EndD) + 1, 0)) Then d = Day(DateSerial(Year(StartD), Month(StartD) + 1, 0)) - Day(StartD)

Else

m = m - 1

d = Day(DateSerial(Year(StartD), Month(StartD) + 1, 0)) - Day(StartD) + Day(EndD)

End If

If m >= 1 Then d = 0

100: GetDateDiff = IIf(y > 0, y & "岁", IIf(m > 0, m & "月", d & "天"))

End Function

Sub Get年月日()

Dim arr1, arr2()

arr = Sheet1.Range("a2:b" & Sheet1.Range("A65536").End(xlUp).Row)

ReDim arr2(1 To UBound(arr), 1 To 1)

For i = 1 To UBound(arr)

arr2(i, 1) = GetDateDiff(arr(i, 1), arr(i, 2))

Next i

Sheet1.Range("C2:c" & Sheet1.Range("A65536").End(xlUp).Row) = arr2

End Sub

以上代码是宏代码，在模块中使用。

赞 (0)

相关推荐

  • 如何用EXCEL提取身份证号的出生日期并计算年龄

    身份证号码的数字都有其具体的意义,从这些数字中可以获得该号码所对应人员的出生户籍地.出生日期.性别等基本信息.利用EXCEL函数,可以很方便的提取身份证号码中的出生日期信息,并计算出年龄. 操作方法 ...

  • 在excel中如何通过人员的出生日期来计算年龄

    一般我们在excel表格中可以通过公式能计算出简单的数据平均数、总和等等的操作。但是在excel中如何通过人员的出生日期来计算年龄？相信很多人都没有操作过或是不会吧。不用担心，今天小编就给大家介绍这方 ...

  • excel中怎样用身份证号计算年龄

    excel中怎样用身份证号计算年龄

  • Excel 2016表格中怎么快速计算年龄?

    前边有经验跟大家介绍,Excel 2016计算时间间隔的方法.今天小编和大家分享一下,如何通过Excel 2016计算年龄. 1.首先我们打开需要计算的excel表格,小编以两个人为例. 2.然后右击 ...

  • 怎样在Excel表格中根据出生日期计算年龄？

    怎样在Excel表格中根据出生日期计算年龄？

    Excel表格制作软件,作为我们常用的统计数据的办公软件之一,一直给我们提供着不可多得便利.可是我们如何根据出生日期自动计算年龄呢?下面就让小编带你们来看看吧!DATEIF 函数1. 首先我们打开Ex ...

  • Excel怎么通过身份证号计算年龄

    Excel怎么通过身份证号计算年龄

    Excel是现在十分常用的文件类型之一,有些新用户不知道怎么通过身份证号计算年龄,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的Excel文档,接着根据下图箭头所指 ...

  • Excel中身份证号计算年龄公式是什么

    Excel是一款电子表格软件,直观的界面.出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件.那么EXCEL中身份证号计算年龄公式是什么呢,下面我们就来了解 ...

  • 如何利用Excel快速计算年龄

    有时我们在已经输入好出生年月的Excel表中,还要输入每个人的年龄,如果用公式的话可能会相对麻烦,下面介绍一个简单可行的方法,快速计算年龄. 操作方法 01 首先在第一个单元格中输入如图函数" ...

  • Excel中如何快速计算年龄

    在Excel中,我们可以利用公式=DATEDIF(A1,TODAY(),"Y")或者"=(TODAY()-C2)/365"计算年数差,从而得到一个人的年龄,是不 ...