algorithm - 如何计算从 VB6 中的给定日期起已经过了六个月？

Question

我想编写一个函数，如果自给定日期起已经过去 6 个月(因此，我在第七个月的第一天)，则该函数返回 True。

Function  PassedSixMonthsSince(Dim dGivenDate as Date, Dim dCurrentDate as Date) as Boolean

这些是这个函数必须通过的一些测试:

Debug.Assert PassedSixMonthsSince("2000-01-01","2000-07-01")=True
Debug.Assert PassedSixMonthsSince("2000-01-31","2000-07-31")=True
Debug.Assert PassedSixMonthsSince("2000-08-31","2001-02-28")=False
Debug.Assert PassedSixMonthsSince("2007-08-31","2008-02-29")=False
Debug.Assert PassedSixMonthsSince("2000-05-31","2000-11-30")=False

我尝试过使用 DateAdd("m",6,dGivenDate)，但这并不容易。

Answer 1

看起来 DateDiff() 在 VB6 中可用...

IF DateDiff("m", FirstDate, SecondDate) >= 6 THEN
return ture
ELSE
return false
END IF

也许是这样的