主题：日期的问题

Dim n1,n2 As Integer

Dim d1,d2,d As Date

d1 =#4/29/2011#

d2=#6/2/2011#

n1=datediff("m",d1,d2)

d = d1.AddMonths(n1)

n1= n1 - iif(d2<d,1,0)

d = d1.AddMonths(n1)

If d1.day = Date.DaysInMonth(d1.year,d1.month) Then

d = New Date(d.year,d.month, Date.DaysInMonth(d.year,d.month))

End If 

Output.Show("月数:" & n1) 

Output.Show("Last:" & d) 

output.show("多余天数:" & datediff("d",d,d2))

不过是If的问题,非要公仔画出肠子来