主题：日期的问题

2011-4-30  到 2011-6-2            按照我们做法利用datediff   可以算出 M月数    d天数

参照Format大师的年月日(易表)算法

不明白,能举个例子吗?

算出月数后，用第一个日期加上这个月数(AddMonths)，如果大于第二个日期，那么正确的月数就是这个月数减1

我研究一下

但是我如何判断这个月的天数呢,我还要算多余的天数的呀

d2-d1.Addmonths(n)

我怎么算出来多余天数是5天.不对的吧?

Dim n1,n2 As Integer
Dim d1,d2,d As Date
d1 =#4/30/2011#
d2=#6/2/2011#
n1=datediff("m",d1,d2)
d = d1.AddMonths(n1)
n1= n1 - iif(d2<d,1,0)
Output.Show("月数:" & n1)
output.show("多余天数:" & (d2 - d1.AddMonths(n1)).Totaldays)