Excel计算两个日期之间间隔几年几个月几天的日期差（已验证）

Excel2119

Excel2119 发表于 2024-11-30 11:46
再升级一下：追求完整。
（很遗憾的是DateDif工作表函数不支持vba中调用，而vba中的DateDiff函数 ...

记录一下：

经测试，工作表函数Datedif在vba中，可用一下代码调用：

日期时差 = Round(Application.Evaluate("=Datedif(T" & i & ",EDATE(R" & i & ", 15*12),""m"")") / 12, 6) '年

Ti为终止日期
Ri为起始日期
注：T和R是列号，i为行变量。

15*12
15是起始日期（Ri）上加15年，因后续以“月”（即："m"）为基准，因此，将加上的15年转换为月，即：15*12=15年×12个月=180个月，计算完成后，再用除以12，计算出最终的年。……（意思就这么个意思，不知道我解释清楚了没，啊哈哈哈）

titi012

Excel2119 发表于 2024-12-7 17:00
记录一下：

经测试，工作表函数Datedif在vba中，可用一下代码调用：

VBA 里没有这个函数，就自己写一个差不多的嘛，不一定非要用内置的

夜雨无声1949

Excel2119 发表于 2024-11-30 11:46
再升级一下：追求完整。
（很遗憾的是DateDif工作表函数不支持vba中调用，而vba中的DateDiff函数 ...

公式3可以改成这样

1. =IF(AND(DATEDIF(A3,B3,{"y","yM","Md"})=0),"开始即结束",IF(DATEDIF(A3,B3,"y"),DATEDIF(A3,B3,"y")&"年","")&IF(DATEDIF(A3,B3,"yM"),DATEDIF(A3,B3,"yM")&"个月",IF(AND(DATEDIF(A3,B3,{"y","Md"})),"零",""))&IF(DATEDIF(A3,B3,"MD"),DATEDIF(A3,B3,"MD")&"天",""))

复制代码

可以减少接近600个字符，公式4也可以简化的。

风云0928

titi012 发表于 2024-12-7 18:00
VBA 里没有这个函数，就自己写一个差不多的嘛，不一定非要用内置的

希望titi012大师编写该功能函数，期待中……

sandays

=LET(a,DATEDIF(A2,B2,{"Y","YM","MD"}),CONCAT(FILTER(a&{"年","个月","天"},a)))
去除了“0年" "0个月" "0天"这样的字眼

Excel2119

sandays 发表于 2024-12-7 22:01
=LET(a,DATEDIF(A2,B2,{"Y","YM","MD"}),CONCAT(FILTER(a&{"年","个月","天"},a)))
去除了“0年" "0个月 ...

sandays老师，LET()函数是自定义函数吗？若是，恳请分享代码，感谢！

Excel2119

sandays 发表于 2024-12-7 22:01
=LET(a,DATEDIF(A2,B2,{"Y","YM","MD"}),CONCAT(FILTER(a&{"年","个月","天"},a)))
去除了“0年" "0个月 ...

LET函数是Microsoft Office 365中的一个新函数，它的主要作用是允许在Excel公式中定义命名变量，从而简化复杂的公式，提高公式的可读性和计算效率。但在MS-Office2016中无法使用

titi012

我用几个日期测试了一下，这个函数不作为内置函数是有道理的，它的一些参数出来的结果不严谨，甚至说是错误的，请看以下：


从这里明显可以看出，YM 的结果，应该是月份之后的余数，减去日期A所在月份的天数，所以碰上润月就出问题了。

titi012

还有一些问题，
比如说，从2024/4/1 到2024/4/30，这应该算 1个月0天、不是30天吧。
而 从2024/4/1到2024/5/1，这应该是 1个月1天，而不是1个月0天。
我懂的不多，仅是直观上感觉不对，是否确定如此就不清楚，也请真正懂的朋友指教。

titi012

风云0928 发表于 2024-12-7 21:16
希望titi012大师编写该功能函数，期待中……

写这种自定义函数应该不难，论坛里很多人都写的出来的。
感觉要先把定义搞清楚，这种日期偏差没有一个标准的定义，应该还是以自己的需求来吧。