【求助】关于自动分辨时间段是否在四个自然月以上

tom9cruise

请问有没有办法将两个日期字段之间的间隔天数自动分辨出来是大于等于四个自然月，还是小于四个自然月呢？
比如有两个字段，一个叫value date，另一个叫end date，一条记录中value date为2009-1-4，end date为2009-5-3号，这个分辨结果就应该是在四个月以下，而不是简单地将5月三号减去一月四号除以30或者31看是否大于4~~~
谢谢啦！

Henry D. Sy

可以

Henry D. Sy

try

Public Function IsOver(Bdate As Date, Edate As Date, Course As Integer) As Boolean
    Dim diffDay As Integer
    Dim diffMth As Integer
    Dim bln As Boolean
    bln = False
    diffDay = Day(Edate) - Day(Bdate)
    diffMth = Month(Edate) - Month(Bdate)
    Select Case diffMth
    Case Is > Course
        bln = True
    Case Is = Course
        If diffDay >= 0 Then
            bln = True
        End If
    End Select
    IsOver = bln
End Function

wang1950317

学习！

yangzhesheng

现在还没学习到,不过先看看

asklove

下了再说
等需要时再研究