[讨论]使用Datedif函数中奇怪的3月1日和3月2日

chrisfang

关于楼主所提到的B2为3月1日、3月2日等特殊日期时，datedif函数得到-1、-2的结果，原因其实很简单，就是按照前面我在9楼提到的那个算法公式进行计算的结果：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2)))

假定B2为3月1日，A2为5月31日，按照上面的算法，函数结果应该等于“=3月1日-2月31日”，由于2月份没有31天，所以Excel中会自动将2月31日转换为3月3日，由此相减产生结果为-2。

因此，如果要排除datedif函数在闰年的bug以及上面这种出现负数的情况，比较合理的替代公式就是我在10楼所列的公式：
=MOD(DAY(B2)-DAY(A2),DAY(TEXT(B2,"y-m-!1")-1))

[ 本帖最后由 chrisfang 于 2009-7-23 18:04 编辑 ]

chrisfang

我在楼上提到的替代公式
=MOD(DAY(B2)-DAY(A2),DAY(TEXT(B2,"y-m-!1")-1))
也有不合理的结果，不能作为替代公式。
因此从完全模拟datedif函数运算结果的角度来说，可以使用公式
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2)))
其中出现的负值现象，不知道微软的本意是否需要这样的负值，虽然从表面上来看，这个函数返回负数是不太合理的，但从算法的连贯性来看，在这上面几个特殊情况下返回负数也是正常的。
如果要排除这种情况，可能认为的将负数结果返回为0是比较合适的一种方式，例如：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),MAX(0,B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2))))

chrisfang

有关这个函数的详细算法解析，可以参考我的新帖：
http://club.excelhome.net/thread-463826-1-1.html
欢迎继续探讨。

lbpp

谢谢版主chrisfang的详细的解释。我再慢慢研究一下，有问题再讨论。

43800723

很好的启发

kuangben8

看的有点迷糊！

laoshenji

为什么6楼的附件不能下载？

418775812

Public Function datedif_Year(date1 As Date, date2 As Date) As Long     '计算两个日期之间的整年数，功能同表格函数datedif(d1,d2,"Y")
    date3 = DateSerial(Year(date2), Month(date1), Day(date1))
    H = Year(date2) - Year(date1) - 1
    If date3 <= date2 Then
       datedif_Year = H + 1
    Else
       datedif_Year = H
    End If
End Function