下面请跟着图老师小编一起来了解下excel计算年龄准确到几岁几月几天，精心挑选的内容希望大家喜欢，不要忘记点个赞哦！
【 tulaoshi.com - 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)
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）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)
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）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
以上代码是宏代码，在模块中使用。
来源:http://www.tulaoshi.com/n/20160219/1614092.html
看过《excel计算年龄准确到几岁几月几天》的人还看了以下文章 更多>>
