标题: 【求助】关于自动分辨时间段是否在四个自然月以上 [打印本页] 作者: tom9cruise 时间: 2009-5-19 23:44 标题: 【求助】关于自动分辨时间段是否在四个自然月以上 请问有没有办法将两个日期字段之间的间隔天数自动分辨出来是大于等于四个自然月，还是小于四个自然月呢？
比如有两个字段，一个叫value date，另一个叫end date，一条记录中value date为2009-1-4，end date为2009-5-3号，这个分辨结果就应该是在四个月以下，而不是简单地将5月三号减去一月四号除以30或者31看是否大于4~~~
谢谢啦！作者: Henry D. Sy 时间: 2009-5-19 23:50
可以作者: Henry D. Sy 时间: 2009-5-20 00:18
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 时间: 2009-5-20 11:07
学习！作者: yangzhesheng 时间: 2009-6-6 07:22
现在还没学习到,不过先看看作者: asklove 时间: 2009-6-6 08:40
下了再说
等需要时再研究