以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于计算月数的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10947)
--  作者：blackzhu
--  发布时间：2011/7/1 8:03:00
--  关于计算月数的问题
Dim d As Double = Datediff("m",#01/03/2011#,#05/08/2011#)
Output.show(d)

  我们利用datediff可以得出两个时间段的日数,约数等,我想问一下.像上面的时间段,月数应该是4个月,但是实际的应该是4个月零6天,我想要做到不满一个月的算一个月,也就是算5个月.怎么写代码?
--  作者：狐狸爸爸
--  发布时间：2011/7/1 8:14:00
--  
Dim d1 As Date = #01/03/2011#
Dim d2 As Date = #05/08/2011#
Dim m As Integer = Datediff("m",d1,d2)
If d2.day > d1.day  Then
   m = m+1
End If
Output.show(m)
--  作者：blackzhu
--  发布时间：2011/7/1 8:19:00
--  
谢谢