关于时间差？

sbsfhgl

DateDiff('m',#2010-8-5#,#2011-9-12#)，
我得出的13个月,实际应该是13个月零8天,如何得出有几个月零几天？

DateDiff('m',#2010-8-5#,#2011-8-2#)
我得出的1２个月,实际还差２天才到１２个月,应该为11个月，如何得出有几个月零几天？

ACMAIN_CHM

提供一个思路。

DateDiff('m',#2010-8-5#,#2011-8-2#) 得到月数后再比较 day(,#2010-8-5#) ,day(#2011-8-2#) 把相差的天数算出来。




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

andymark

月头和月尾一个月的方法

Private Sub Test(FirstDate As Date, LastDate As Date)
  Dim M As Integer
  Dim D As Integer
  
M = DateDiff("M", FirstDate - 1, LastDate)

If DateAdd("m", M, FirstDate - 1) > LastDate Then

    M = M - 1
End If

D = DateDiff("d", FirstDate, LastDate) - DateDiff("d", FirstDate, (DateAdd("m", M, FirstDate - 1)))
  
MsgBox "两日期之间相差" & M & "个月 零 " & D & "天"
  
End Sub

andymark

Private Sub Command0_Click()
  Call Test(#8/5/2010#, #8/2/2011#)
  Call Test(#8/5/2010#, #9/12/2011#)
End Sub